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module ZRGAM1 ( 
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Stitle ‘RD/RX EXERCISER’ 
ident = ‘yv02.3', 
ressing_mode (absolute), 
Pere (noeis) 


begin 


s( 
IDENTIFICATION 


PRODUCT CODE: AC-T398H-MC 
PRODUCT NAME : CZRQAHO RQDX/RUXSO EXERCISER 
PRODUCT DATE: 10-OCT-85 
MAINTAINER : DIAGNOSTIC ENGINEERING 
AUTHOR : RAVINDER K. KARWAN 

BOB POWERS 


Copyright (C) 1983, 1985 
Digital Equipment Corporation, Maynard, Massachusetts 01754 


Tnis software is furnished under ea license for use only on a single 
computer system and may be copied only with the inclusion of the 
above ig <A he notice. This software, or any other copies thereof, 
may not provided or otherwise made evailable to any other person 
except for use on such system and to one who agrees to these license 
terms. oe to and ownership of the software shall at all times 
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0039 remain in 

0041 the information in this document is subject to change without notice 
oat and should not be construed as a commitment by Digital Equipment 
004 Corporation. 

0045 DEC assumes no responsibility for the use or reliability of its 
gone software on equipment which is not supplied by DEC. 

0048 

Gosh The following are trademarks of Digital Equipment Corporation: 

0051 DIGITAL POP UNIBUS MASSBUS 

0052 DEC DECUS DECTAPE 
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SEQ 0002 
10-Oct-1985 09:31:41 VAX-11 Bliss-16 v4.1-582 age 1 
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F] 0001 0 § SESSESEEEEASESEESESSHEEESESEEASESESESLESSSESELASASLAEREREAEEASERERERERERERAREEES EEE 
0002 0 ' « 
} 0003 0 ¢ LITERALS ‘ 
[a 0004 0 H * 
4 0005 4 Wh aga ae a to atta eae ees 

; 9007 0 LITERAL | 

; 0006 °O H 

: ss ¢4 4 teeeaee ODT TRAP VECTOR LOCATION 
ft 0011 0 O_TVEC = S0'14', 

$ 0012 O : 

r Sots : esses HARDWARE ADDRESSES ETC. 

4 

+s 0015 Oo INIT_INTR_VECT = #0'154', ' VECTOR ADDRESS 

s 0016 O INIT_IP_AODOR = #0'172150', F ! IP REGISTER ADDRESS 

, 9937 8 INIT_BR_LEVEL = #0'4', , ' BUS REQUEST LEVEL 

' 

; 0039 8 LINE_CLOCK = #0'177546', ' LINE-CLOCK ADDRESS 

; 0082 _—— HARGWARE LIMITS 

v 

s 0023 O MAX_CTLR = 1, ! MAXIMUM NUMBER OF LCP CONTROLLERS ALLOWED 

s 0024 O UNITS_PER_CNTR = 4, ! MAXIMUM UNITS PER CONTROLLER 

s 0025 0 MAX_UNITS = MAX_CTLR * UNITS_PER_CNTR, * MAXIMUM NUMBER OF UNITS TO TEST 

e 

s 0027 O ‘ ‘HIGHEST RDS1 LBN = 52137 OCT 

; 0028 O RDS1_MAX_TRACK = 1200, ' MAXIMUM NUMBER OF TRACKS FOR RDS1 

, re) RDS1_ -SEC- “PER. TRK= 18, ' NUMBER OF SECTORS PER TRACK FOR RDS1 

, 9030 0 ROS1_MAX_LBN = RDS1_MAX_TRACK « ROS1_SEC_PER_TRK - 1,! MAX LBN FOR RDS1 

. 

; 0032 O RDS2_MAX_TRACK = 2976, ' MAXIMUM NuMBER OF TRACKS FOR RDS2 

; 0033 O RDS2_ -SEC -PER_TRK= 18, ' NUMBER OF SECTORS PER TRACK FOR RDS2 

i cose ° ROS2_MAX_LBN = RDS2_MAX_TRACK « ROS2_SEC_PER_TRK - 1,! HAX LBN FOR RDS2 

: 

: 0036 O RXSO_MAX_TRACK = 80, ! MAXIMUM NUMBER OF TRACKS FOR RxSO 

; 0037 O RX50_SEC_PER_ TRK= 10, ' NUMBER OF SECTORS PER TRACK FOR RXSO 

; 9038 9 RX50_MAX_LBN = RX5O_MAX_TRACK * RXS5SO_SEC_PER_TRK - 1,! MAX LBN FOR RXSO 

é 

; 0040 O ' 'HIGHEST RDS3 LBN = 416660 OCT (2/016660) 

; 0041 O ’ 'RDS1 SEAGATE 4 HEADS 

: 0042 O ; !RDS2A QUANTUM 8 HEADS 98s 

: 004 0 ! 'RDOS28 I 7 

; 0044 O a 'RDS3 MICROPOLIS 8 HEADS 

; 0045 O : 'RQDX2 18 BKS/T 

; 0046 9 ! 'RQOX2 17 BKS/TK 

' 004 

; 0048 O BYTES PER_SECT = 512, ' BYTES/SECTOR CAT PRESENT SAME FOR RDs AND RXs) 

+ 0049 0. : MAX_XFER_SIZE = 2 « BYTES_PER SECT. ! ARTBITRARY MAX SIZE OF EACH DISK I/0 

; oo80 9 ; MAX_XFER_SIZE = BYTES_PER_SECT « 3 / 2, 

a 

; oose ° ! NOTE - BOTH OF THESE NUMBERS ARE NOW ARBITRARILY CHOSEN AS THE NUMBER OF LBNS CONTAINED PER UNIT/10 . 

. 
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5 0054 0 H 

: 0055 Oo taeenes RING SIZES 

; 0056 O ‘ 

$ 0057 °O CR_LOG x 
t 0058 O LOG 2 

+ 0059 0 CRING_LEN s 

4 0060 0 RRING_LEN © 

; 8 0061 0 $ 

: 2 0062 0 !eeeese OFFSETS CIN WORDS) 

i 4 0063 0 : 

. 2 0064 0 OF __UN s 
s 0065 O OF DATA = 
$ 0066 O OF BEG = 
; 0067 O OF _BEG1 = 
r 0066 0 OF __END = 
$ 9 °O OF _END1 2 
’ 0070 0O OF __NAME_O = 
$ 0071 O . OF NAME _2 * 
‘ 0072 O ; OF _DUPFLAGS z 
’ 0073 °O OF _COUNT 2 
’ 0074 Oo OF _OBN 2 
: 0075 O H 
' 0076 °O ! . 

' 0077 O $as#eee0 TABLE AND OTHER 
’ 0078 O ' 
toa 0 LBNADR_LEN = 
0060 0O HWPT_LEN = 
22ZZ 
’ 0081 O COMM_LEN = 
Yogg?ee 0 UNIT_SIZE = 
$ 0083 O CST_LEN = 
: 0084 O TALLY_CLEAR = 
§ ag OO 0 TALLY_TOTALS = 
’ 0086 O TALLY_LEN s 
+ b088 0 RP LER 
, Z 
’ 0089 O MSG_ s 
; 0090 O PKT_ = 
: 0091 90 DCT_LEN 2 
’ 0092 90 RDOM_LEN = 
‘ 0093 0 MAX_UODP_C » 
: 0094 0O MAX_BUF _CNT x 
’ 0095 0 _CNT = 
’ 0096 0 
' 0097 O Re _CNT = 
: 0098 Oo I00Q@_LEN = 
’ 0099 O OUTC_CNT s 
: 0100 0O _CNT = 

a 0101 oO EP_CNT 2 
: rte | 0 EP_LEN = 
: 0103 Oo LAST_PKT_LEN 2 
; 0104 0O DESC_SIZ = 
: 0105 90O : 
$ 0106 0O teeeaene SW P-TABLE FLAGS ( 


10-Oct-1985 09:31: 
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9-Oct-1985 17:36:09 


2. 
2. 
1 
1 


TO START BK HI 
TO END BLOCK LO 
TO END BK HI 

TO ist 


!OF FSET 


TO DUP FLAGS 
TO 


‘OFFSET TO RELATIVE DBN 


STRUCTURE SIZES 


2. 
8, 


yen tS TER CNTR * UNIT_SIZE + OF_UN, 


TALLY_CLEAR + TALLY_TOTALS, 


16, 
CCRING_LEN « 2) « MAX_C 
CCCRING_LEN * 2) + RRING- “TEND * MAX_CT 


PKT_CNT - C(RRING_LEN *« MAX_CTLR), 
RP_ENT, 
CRING_LEN * 2, 


21, 
MAX_CTLR # RRING_LEN « 3, 
PKT_LEN - 3» i. 


4, 
SWP _FLAGS ) 


oe * 2) + (CRING_LEN # 2) + 4, 


H 
2 CHARS OF 
T TO 2nd 2 CHARS OF 


VAX-11 


DISK $SUSER2: (MLYNAR. tRa}ZROAHO. REQ;5S 
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SEQ 0003 


Bliss-16 V4.1 2 
= (1) 


LOG2 LENGTH OF C 


OMMAND RING 
LOG2 LENGTH OF | A eaaaa RING 
COMMAND RING LENGTH 
RESPONSE RING LENGTH 


OFFSET FROM START OF CST TO FIRST UNIT 


OFFSET TO DISK UNIT FLAGS 
OF FSET me BLK NO. 


NAME 
NAME 


Z2ZZ 
ZZZ 


2ZZ 
ZZZ 


Z2ZZ 
MSCP FUNCTION COUNTER aS 


'MAX_LBN’S ARE 


¢ 
‘ 
j 
‘ 
i 
i 
‘ 
‘ 
' 
LR 
i 
‘ 
: 
: 
‘ 
‘ 
‘ 
‘ 


SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
SIZE (WORDS) 
MAX SIZE OF 
MAX NO. OF I 
NO. OF MSCP 
NO. OF RE 
NO. OF 

NO. OF 

NO. OF PRE- 
NO. OF ERROR 
LENGTH OF E 
BUFFER LE 


NGTH T E INFO. 
‘NO. OF BYTES IN A PACKET DESCRIPTOR 


' 
i 
WITHIN UNIT'S CST | 
WITHIN UNIT'S CST | 


2 WO ADDRESSES 
HW P-TABLE 


COMMUNICATION AREA PER CONTROLLER 
CST UNIT ENTRY 


A CONTROLLER STATUS TABLE 
STATISTICS TBL CLEARED EVERY PASS 
STATISTICS TABLE FOR TOTALS 


A STATISTICS TABLE 
CONTROLLER ERROR TABLE 
A RETURN PACKET 
AN MSCP MESSAGE (TEXT PORTION) 
AN MSCP PACKET 
A DRIVER CONTROLLER TABLE 
THE RANDOM NUMBER TABLE 
USER DATA PATTERN 
/0 BUFFERS (BUFF_ADDR & BUFF _OWN) 


PACKETS IN POOL 
PACKETS IN 


pdt — aa 


T 
ENTRIES IN I/0 DONE QUEVE (I0DQ) 
bas Bevcaan cntk oat OUTSTANDING CMD LIST 
DEF INE PATTERNS 


BUFFER 
O SAV ABOUT LAST RESPONSE 


22ZZ 
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SEQ 0004 
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is 0107 O $ 
i § 0108 Oo $Z2Z SWF _ TAC = go'000001', ' DIAGNOSTIC TRACE 
gz 0109 Oo SWF _APT = #o'000001’, ‘RUNNING UNDER A.P.T. MONITOR ZZZ 
‘ 0110 oO SWF _RDM = to'000002', ‘ RANDOM SEEK MODE 
ig 0111 O SWF _CRC = to'000004' , ! READ-COMPARE AT CONTROLLER 
tg Oll2 0 H SWF _OCC = #o'000010' , ! DRIVE COMPLERENT COMPLETE 
$ 0115 °O SWF _CWC = to'000020' , ! WRITE-COMPARE AT CONTROLLER 
ls 0214 © SWF _HWC = #0'000040'. ! WRITE-COMPARE AT HOST 
i 0115 Oo SWF _UDP = to'000100', $ USER-DEFINED DATA PATTERN 
| g 0116 O SWF_CST = #to'000200', ' CLEAR STATISTICAL TABLES 
t 0117 O ' SWF_DIA = to'000400', ! OL PACKAGE, WHEN THIS IS SELECTED 
5 0118 O ! ALL INTERRUPTS ARE WAITED FOR. E.G. ONLY 
5 0119 O ' ONE MSCP PACKET IS OUTSTANDING A TIME 
’ 0120 O SWF _SEQ = go'001000' , ! RANDOM OR FIXED SEQUENTIAL STEPPING 
i 0121 0O ! SWF _OUP = to'002000' , ! RUN DUP DIAGNOSTIC 
’ Ol2z2 0 SWF _FER = o'004000' , ! REWRITE BLOCKS WHEN “FORCED ERROR” GIT DETECTED 
' 01235 0O SWF _HRD = #o'010000' , ! HALT ON HARD ERRORS ALSO WITH ‘HOE’ ORS FLAG? | 
’ 0124 O SWF _SFT = to'020000' ., ' HALT ON SOFT ERRORS ALSO WITH ‘HOE’ ORS FLAG? 
' 0125 O SWF _BLK 2 *040000' , ! HALT ON BAD-BLOCK ERRORS ALSO WITH ‘HOE’ ORS FLAG 
t orss : , SWF _TRY = go' 100000’ , ' COUNT EACH RETRY AS ANOTHER EXTRA SOFT-ERROR 
5 
’ 01268 °O teeeee6 FLAGS FOR DUP EXERCISER (DUP_FLAGS) ZZZ 
r rt 4H 0 H ZZZ 
’ 01 0 SWP _DINT = go'2', !DUP CAUSED INIT ZZZ 
r 0131 oO 
' ones 0 ! 
; 013 0 teeneee ENTRY_REASON VALUES 
$ oiss ° : CHOW PROGRAM WAS INVOKED) 
| M 
: 0136 O START = 1, § START 
' 0137 O RESTART = 2, ' RESTART 
’ 0138 O CONT = 3, ! CONTINUE 
; 0139 °O PWR_FAIL = 4, ' POWER FAIL 
’ 0140 oO NEW_PASS = 5, ' NEW PASS 
$ 0141 O ! 
t 0142 O teeeaee DROP UNIT REASONS 
F 014 0 : (LOADED INTO DUR VECTOR) 
; 0144 O ! 
: 0145 O DU_USER = QO, $ C 
’ 0146 0O DU_CONF = 1, : GURATI 
' 0147 O DU_INIT = 2, ! INITIALIZATION ERROR 
’ 01486 O DU_XFER = 3, : ANSFER LIMIT REACHED 
’ 0149 O DU_HERR = 4, ! HARD ERROR LIMIT REACHED 
5 0150 oO DU_OFATAL = 5, ' UNRECOVERABLE DEVICE ERROR 
3 0151 0O DU_CFATAL = 6, : ee ee ener ie CONTROLLER ERROR 
’ 0152 0 Ou. I = 7, ' ONLINE FAILED 
’ 0153 Oo DU_ACCESS = 8, ! ACCESS TO LAST TRACK FAILED 
: 0154 0 DuU_PROTECT 2 9, * WRITE PROTECT CONFLICT 
t Sia? 2 : DU_ TIME = 10, ' COMMAND TIME OUT 
: ! 
: tH : eosese MISCELLANEOUS LITERALS 
: : 
4 0159 Oo MAX_DBN = 63, 'HIGHEST RELATIVE DBN NUMBER ZZ 


sss ess sssssssseasaasiipririnsiniitariineiiniene eee - 
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SEQ 0005 
10-Oct-1985 09:31:41 VAX-11 Bliss-16 V4.1-582 age 4 
9-Oct-1985 17:36:09 DISKSUSER2: (MLYNAR .ZRQ)ZRQAHO.REQ:5 Ci) 


a ATT =2 : NO. OF HW INIT ATTEMPTS BEFORE FAILURE IS ASSUMED | 


_RING = ((#0'200') or (CR_LOG t 3) or CRR -L0G)), 
WR-BIT-AND-RING-LENGTH (STEP 1 WRITE/STEP 2 READ) | 
QIO_PER_CTLR = CRING_LEN « 2, MAXIMUM NUMBER OF OUTSTANDING Q@I0S PER CONTROLLE 
' MAX_XFER = 256, ! MAXIMUM SIZE (WORDS) OF AN I/O TR ER 

REMOVABLE BIT = s0'0’, ! TABLES MARKING A REMOVABLE DISK 
FIXED BIT = $0! 20, : BIT IN TABLES MARKING A FIXED : 

ABLE = 0, : R FOR REMOVABLE DISK WHEN SHIFTED RIGHT | 
FIXED = i, ! NUMBER FOR FIXED _ OISK WHEN SHIFTED RIGHT | 
RXx_50 = 0, !D_TYPE FLAG = 0 FOR RXSO CTHESE FLAGS AREN‘’T USED. INSTEAD,) 22 
R0-33 a i. 1D “TYPE FLAG = 1 FOR R051 (DO_TYPE = 1 FOR FIXED, O FOR REMOV) 


$ 
— MSCP PACKET DESCRIPTOR 


ED_OWN = go'100000' , ' OWNERSHIP BIT 
, ED_FLAG = to'040000' , ! FLAG BIT 
ppaguas MSCP COMMAND PACKET OPCODES 
OP _MSK = go'177', ! OPCODE MASK 
OP END = , . ! ENDCODE DESIGNATOR 
0? _ACC 2 #o'20', ! ACCESS COMMAND 
OP _ ONL = go'l1l', ' ONLINE COMMAND 
OP_RD = go'4l', ' READ COMMAND 
OP _SCC = go'4', ! SET CONTROLLER CHARACTERISTICS COMMAND 
OP _WRT = to'42', ! WRITE COMMAND 
OP_GDS = go'l', 'get dust status 
OP _ESP = to'2', ‘execute supplied prog ZZZ 
OP _ELP = to'3', texecute locel program 22ZZ 
OP _SDD = go'4', 'send data ZZZ 
OP _RCD = go'5’', treceive data Z22Z 
OP _ABT = go'6', ‘abort program ZZZ 


! 
ne PACKET SIZES 


SZ_ACC = Sdecimal ‘32’, : ACCESS 
SZ_ONL = sdecimal ‘36', * ON LINE COMMAND 
SZ_RD = sdecimal ‘32’ : 
SZ_SCC = decimal ‘32', : SET CONTROLLER CHARACTERISTICS 
SZ_WRT = sdecimal ‘32’, ! WRIT 
SZ_GEN = sdecimal ‘32’, ! GENERAL PACKET SIZE 
SZ_REC = SDECIMAL ‘28', : ZZZ 
Z_SEN = SDECIMAL ‘28', : ZZZ 
SZ_ELP = CIMAL ‘18’, : ZZZ 
-ABT = SDECIMAL ‘12’, : ZZZ 
; SZ_GDS = SDECIMAL ‘12’, : ZZZ 
teeeees MSCP COMMAND MODIFIERS 
MD _CMP = #0'040000', ! COMPARE 


—— ee 


- - ~ . - - 
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10-Oct-1985 09:31:41 VAX-11 Bliss-16 V4.1- 
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MD_EXP = #0’ 100000’, ! EXPRESS REQUEST 


#20006 CONNECTION ID VALUES (MSCP_PKT, RETPKT) ! 
(SERVE AS SOURCES AND DESTINATIONS OF MSCP MESSAGES) : 


3" 
~ 
: 
m 
- 
uw 
a 
~ 
a 


oe *@ ee e@ 


CID_DISK = 0, ! DISK MSCP ' 
CID_MSCP = O, 'DISK MSCP | 
CID_ TAPE = i, ! TAPE MSCP 
CID_OUP = 2, ' DIAGNOSTIC AND UTILITIES PROTOCOL 

CID_ORIVER = 3, ' EXERCISER “DRIVER” 

‘wees MESSAGE TYPE VALUES 
MT_SEQ = 0, ' SEQUENTIAL (FROM PORT) 
MT_OG = i, ! DATAGRAM (FROM PORT) 
MT_CRO = 2, : ' CREDIT NOTIFICATION (FROM PORT) 
MT_FATAL = 3, ' FATAL DEVICE ERROR (FROM “DRIVER”) 
MT_ TIMEOUT = 4, ' COMMAND TIMEOUT (FROM “DRIVER”) 


oee0e4 CONTROLLER FLAGS 
CIN SET CONTROLLER CHARACTERISTICS COMMAND AND RESPONSE) 


CF _ATN = #o'000200', ' ENABLE ATTENTION MESSAGES 
_MSC = #0'000100' , ' ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
CF _OTH = go' 000040’ , ' ENABLE OTHER HOST‘'S ERROR LOG MESSAGES 
_THS = , . ' ENABLE THIS HOST‘S ERROR LOG MESSAGES 
CF _MASK = CF_ATN or CF_MSC or CF_THS, 
= CF “MSC or CF_THS, ' RELEVENT BITS IN CTLR FLAGS WORD 


#eeee% UNIT FLAGS 
CIN ONLINE COMMAND AND RESPONSE ) 


UF REMOVABLE = #0'000200' , 


REMOVABLE MEDIA 


; UF _WPH = #o'020000' , ! WRITE PROTECT CHARDWARE ) 
‘pear STATUS / EVENT CODE DEFINITIONS 
ST_SUC = £0'0', ! SUCCESS 
ST_CMD = fo'l', ! INVALIO COMMAND 
ST_ABO = to'2', : ABORTED 
ST_OFL = go'S', ! UNIT OFFLINE 
ST_AVL = to'4', ! ORIVE AVAILABLE 
ST_MFE = go'5S', ! MEDIA FORMAT ERROR 
ST_WPT = #o'6', ! WRITE PROTECTED 
.CMP = go'7' ! COMPARE ERROR 
ST_DAT = £0'10', ! DATA ERROR 
St_HST = go'll', ! HOST BUFFER ACCESS ERROR 
ST_CNT = to'le’, ! CONTROLLER ERROR 
ST_ORV = go'l3', : RROR 
ST_BRC = to'24', ! BAD BLOCK REPLACEMENT COMPLETION MMM 
ST_OIA = #o0'37', ! MESSAGE FROM INTERNAL DIAGNOSTICS 


: 
{eaeeee END MESSAGE FLAGS 


ee ee es _— 


ee | 





SEQ 0007 


10-Oct-1985 09:31:41 VAX-11 Bliss-16 V4.1-562 Page 6 
39-Oct-1985 17:36:09 DISK SUSER2: [MLYNAR . ZRQ)ZRQAHO. REG: 5 Ci) 

is 0266 O § 
i g 0267 °O EF _86R = to’ 200’, ' BAD BLOCK REPORTED 
is ose 4 EF _BBU = #0'100', ‘ BAD BLOCK NOT REPORTED , 
i 0270 0 teesees RORX LITERALS , 
|, 271 O ' : 

; 0272 0 RCIP = 0, ! IP REGISTER | 

: 0273 0 RCSA = 1, ! SA REGISTER | 

; : 

+ 0275 0 fassaes COMMON SA REGISTER BIT DEFINITIONS | 

; 

t 0277 °O SA_S1 = tto‘'004000', ' STEP 1 STATUS BIT | 

’ 0276 O SA_S2 = to'010000', $ ri cm 

’ 0279 90 SA_S3 = to'020000', : ; = 

’ 0260 0 SA_S4 = to' 040000’, : v4 

’ 02861 O _ERR = to' 100000’, ' ERROR INDICATOR 

ry 0262 0O SA_INT = to'000200', ' INTERRUPT ENABLE DURING INITIALIZATION 

t 0283 : ; _GO = gto'000001', ' GO BIT TO START FIRMWARE 

.  O2B4 ; 

’ eens : {eeeees INITIALIZATION STEP READ MASKS 

3 3 

t 0287 °O S1_MASK = go'176000' , § STEP 1 READ BITS 

: 02868 O S2_MASK = to'174377', ' : 2 

‘ 02869 O S3_MASK = go'174377', : oe 

: 0290 0O S4_MASK = tto' 174000‘, ' v4 

: 0291 O : 

5 0292 0 {saeeee COMMAND TYPES 

s 0293 °O ' 

’ 0294 0 IMM_CMD = O, ' IMMEDIATE COMMAND 

’ 0295 0 SEQ_ ~CMOD = il, ! SEQUENTIAL COMMAND 

: esas 3 , NON_SEQ_CMD = 2, ! NON-SEQUENTIAL COMMAND 

; 0298 0 feeseae ERROR-LOG FORMAT TYPES 

' 3 

: 0300 90 FORMAT_CNTR = go'0', ' CONTROLLER ERROR 

: 0301 0O FORMAT _HOST = go'l', ' HOST MEMORY ACCESS ERROR 

’ 0302 90 FORMAT_XFER = to'e2', § DISK TRANSFER ERROR 

’ 0303 0O FORMAT_SOI = go'3', ! ‘STANDARD DISK INTECONNECT’ ERROR 

8 0304 0O FORMAT _SDE = go'4', * SMALL DISK 

3 Oeoe 4 FORHAT_BRA = go'li', ! BAD BLOCK REPLACEMENT ATTEMPT MMM 

i 4 

: p+ 4 ° [eseees ERROR-LOG BLOCK NUMBER INFORMATION 

i 

: 0309 O TYPE_LBN = go'0000', ! LOGICAL BLOCK NUMBER 

’ oats : : TYPE _RBN = #o0'0110', ' REPLACEMENT BLOCK NUMBER 

| . 

: Het : — MSCP DISK MODEL CODES 

' 

: 0314 O : MODEL _RX50 = 7, ' RXSO THESE ARE NO LONGER USED. THE 

: 0315 Oo : MODEL _ROS1 = 6, ' RDS1 MODEL IS DETERMINED ANOTHER WAY. 

r ete : : MODEL _RDS2 = 8, ' RDS2 

° ’ 

$ 0318 O taeeeee LITERALS FOR READABILITY 


rr rrr teeter eeeereren 


eoooe0o co cooocoooococoocoooco 


ee 





1, 
i, 


i, 


0, 
#0'177777' ; 


—.— ee eee 
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DISK IS PRESENT IN CONTROLLER 

DISK IS NOT PRESENT IN CONTROLLER 
DISK HAS UNPROTECTED CUSTOMER LBN’‘S 
DISK HAS PROTECTED CUSTOMER LBN‘S 


!IOLE 
!ACTIVE 


! ERROR-LOG SAVE PACKET FILLED 

! ERROR-LOG SAVE PACKET PRINTED 

! HARD ERROR DETECTED IN RESPONSE PACKET 
! HARD ERROR NOT DETECTED 


— ee me me ~- -- 


: 8 0 

' 3 0 oe 

i 8 0 § rIZIELOS 

; 8 0 : 

i ; a 

ig 0 8 
' : FIELD 
3 H 
; : {esses HARDWARE P-TABLE FIELDS 
3 H 
’ 4 HWP _FIELDOS = 
| 
Py 0 _IP_ADDR «= [0, 0, 16, 0], 
, 0 HWP_ VECTOR = [1, 0, 16, 0], 
: 0 HWP_6R_LEVEL = {2, 0, 16, 0], 
; 0 HWP _ DISK = (3, 0, 16, 0], 
3 0 HWP _DISK_NUM = (3, 0, 4, 0}, 
: 0 HWP_DISK_TYPE = (3, 4, 1, Oj, 
; 0 HWP_DISK _DUPEX = (3, 5, 1. 0]. 
4 0 HWP _DISK DUPWT = (3, 6, 1. 0), 
; 0 HWP _ENTIRE oie, 7, 1, 9 
; 0 HWP_DISK_CP = (3, 15, 1. 0}, 
: 0 HWP _BEG_TRK = (4, 0, 16, 0), 
: 0 HWP _BEG_TRK1 = (5, 0, 16, 0}, 
’ 0 HWP _END_TRK s 6, 0, i6, 0 © 
’ 0 HWP _END_TRK1 = (7, 0, 16, 0 
| : . tes, 
$ : 
’ 4 aie sec COMMUNICATION AREA HEADER FIELDS 
| . 
’ 0 COM_FIELDS = 
: 0 set 
’ 0 ADAP_CH = 8. 8, 0} 
; 0 CMD_INT = (2, 0, 16, 0}, 
; 0 RSP_INT = 0, 16, 0) 
5 0 tes, 
’ 4 : 
u 
2 ; : DUP BUFFER FIELD 
| H 
: 0 DP_FIELDS = 
’ 0 SET 
| 0 DUPBFO = 0, 16, 0 * 
Py 0 DUPBF 1 = {1, 0, 16, OJ], 
t 0 DUPBF 2 = 2. 0, i6, 0 2 
’ 0 DUPTYPE = {0, l2, 4, Oj, 
’ 0 « {[0, 0, l2., 0 
; 9 
| 
’ 4 poocens CONTROLLER STATUS TABLE (CST) FIELDS 
+ M4 
5 0 CST_FIELDS = 
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SER SSSSESEESEEEEEEESESEEESEEEEESS £664660640466866604066066606664600060066060064060666004 
& 


xz i 


—<—_——_——<— -- ~~ 


VECTOR ADDRESS 
BUS REQUEST LEVEL 
DISK CALL FIELDS) 
DISK a 
Pg YPE 
UN DUP EXERCISER !ZZZ 
DUP ITE FLAG $ZZZ 
!TEST ENTIRE OISK !ZZZ 
PROTECT CUSTOMER DATA BIT 
BEGINNING TRACK LO §ZZZ 
BEGINNING TRACK HI $ZZZ 
ENDING TRACK LO $ZZZ 
ENDING TRACK HI !ZZZ 


ADAPTER CHANNEL NUMBER FOR PURGES 
C RING INTERRUPT 
RESPONSE RING INTERRUPT 


9 
C2) 


SEQ 0010 
Page 


DISK SUSER2: (MLYNAR .ZRQ)]ZRGAHO.REQ;5 


VAX-11 Blies-16 V4.1-5862 


9-Oct-1985 17:36:09 


10-Oct-1985 09:31:41 
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3-2 GOSS COCOONS o9o° 
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ee eeeeeeae OW wettest 
Siig EE SS ced™* wt 
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een eeaeeeeeaeaeneaeneneee enone 
OonMM 


tte hs 
ie eb pause Hay: 
Hs scuceusaa Prise 
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CTEXT + O). 


OF PACKET REFERENCES THE PACKET’S OWN 
» RATHER THAN THE MESSAGE BODY 


SEE DOCUMENTATION FOR LAYOUT OF MSCP PACKETS. ) 


(NOTE: BASE ADDRESS 


BUFFER DESCRIPTOR 


eeeeee MSCP PACKET FIELDS 


set 
HEADER FIELDS 


T.FIELOS = 





! PACKET DESCRIPTOR CHI ORDER - ALL FIELDS) 
! PACKET DESCRIPTOR CHI ORDER UNIBUS BITS) 


! PACKET DESCRIPTOR (LO ORDER) 


bd ddd toto lolol a lolololololololelololelolol-lelolol-l-l-l-f-l-l-l-f-t-}-f-1-) 


aaiistttittitinceretititeetteestitititit tite 
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SEQ 0011 








10-Oct-1985 09:31:41 VAX-i1 Blies-16 vs v4.1-582 Page 10 
9-Oct-1985 17:36:09 DISKSUSER2:[ML YNAR 2RQ}ZROAHO. REQ;5 (2) 
= (1, 2. 4, 0) ! PACKET DESCRIPTOR (HI ORDER Q-BUS BITS) 
“Ping Mey s 0}. ! PACKET DESCRIPTOR FLAG BIT 
. i. 15, 1. 0 1 : PACKET DESCRIPTOR OWNERSHIP BIT | 
- (2. 8. 8. Oo. ! FLAG SET IF RESPONSE TO COMMAND RECEIVED | 
= (3, 0. 16. Oj, ' MESSAGE LENGTH ; 
= (4, 0, 4, 0}. ' CREDITS 
s 4, 4, 4, 0 ’ H MESSAGE TYPE ; 
= (4, 8, 8. 0}. ! CONNECTION ID | 
GENERIC COMMAND PACKET AND END PACKET HEADER FILEDS | 
CRN_LO 5, 0, 16, 0}, COMMAND REF NUMBER (LO ORTER) 
HI 6. 0, 16, 0}, Cc HI ORVER) 
7, 0, 16, 0}, DISK ADDRESS (RD/RX DISK NUMBER) 
9, 0, 8 : OPC ENDC 


COMMAND MODIFIERS 
STATUS CPART OF RESPONSE PACKET) 





IFY 
STATUS_CODE 10. 0. 5, 
STATUS _ SUBCODE 10, 5. ii, 035. 


READ, WRITE, AND ACCESS COMMAND FIELDS (FOR COMMAND AND END PACKETS) 





sa ususanneseeneeeeeReeceaeenee ers 


coocoocooocooseocooosesoececooessoooeseooescooesesooooooooooocoo“ooco 





SUBCODE (PART OF RESPONSE PACKET) 
Bc L = (11, 16, 0), ! BYTE COUNT (LO ORDER) 
HI = (12, 0, 16, 0}, ' BYTE COUNT CHI ORDER) 
BUF -0 = (13, 0, 16, 0}, ' I/0 BUFFER DESCRIPTOR 
a | = (14, 0, 16, 0}, ‘ 
BUF _2 = (15, 0, 16, 0}, ‘ 
BUF _3 « (16, 0, 16, 0), ; 
BUF _4 = (17, 0, 16, 90}, ' : 
BUF_S = [18, 0. 16, 0}, i Vv 
LBNL. = (19, 0, 16, 0), * LOGICAL BLOCK NUMBER (LO ORDER) 
-H = . oO; 16. 0), ' LOGICAL BLOCK NUMBER (HI ORDER) 
: 
DUP PROGRAM LETTER FIELDS (FOR EXECUTE LOCAL PROGRAM CMD) 222 
Li = (11. 0, 8, 0), ‘LETTER NO 1 222 
L2 = (11, 8, 8, 0), ‘LETTER NO 2 222 
L4 « (12, 8, 8, 0}, 'LETTER NO 4 222 
LS = [13, 0, 8, 0), ‘LETTER NO S 222 
L6 = (13, 8, 8, 0}, ‘LETTER NO 6 222 
SET CONTROLLER CHARACTERISTICS COMMAND FIELDS 
32 C_FLAGS = (12. 0, 16, 0). ! CONTROLLER FLAGS 
ONLINE COMMAND FIELDS 
oa U_FLAGS = (12, 0, 16, ol. ! UNIT FLAGS 
oa o6P AR = {19. 0, 16, 0 * DEVICE -DEPENDENT PARAMETERS 
es, 
: 


@ Se es ee ae as ae ee eS 
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334 


, y + +, +; an +, +, +, +, + + + +, +, > > +> + ~ + +; + + 
eooooocooocooosooesoooesesoooseeoesooeesesoeseoeooesooooeooooooooosooofo 
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10-Oct-1985 99:31:41 
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{eeeese RETURN PACKET CRETPKT) FIELDS 
$ (SIMILAR, BUT NOT IDENTICAL, TO MSCP PACKET FIELDS) 







‘ 
RP_FIELOS « 
’ - 
COMMON TO ALL RETURN PACKETS FROM DISK MSCP 
ME bead nS i6, 0). 
CTR ee ME a 
MESTYP = Re 4. 4, ¢ 
corp s Re 8. 8. 
LO oat 2. 0. i6, e 
= 0 i6. 0 a 
= (4, 0, 16. 0}, 
= (5. 0. 16. 0}. 
= 6. 0, 8. 0 P 
s 6. 8. 8, 
STATUS = (7, 0. 16, 0}, 
STSCOO = {7, 0, 5, 0) 
; = (7, 5, 11. 0}, 
READ, WRITE, AND ACCESS COMMAND RETURN PACKETS 
_LO * 8. a. 16, 3}: 
HI o i6, 0 
“0 * 16 , “% 16, 0}, 
m = (11, 0, 16, 0j, 
-§ = . 0. i6, 0 ® 
= (13, 0, 16. 0}. 
4 = (14, 0. 16. 0}. 
5 = (15, 0, 16, 0). 
“LO = (16, 0, 16, 0}, 
HI = (17. 0. 16. 0}. 
_LO = (18, 0, 16, 0}, 
HI s 19, Cc. 16, 0 P 
« , 0, 16, 0}, 
s ‘?i. 0. i6, 0 s 


1222 





SET CONTROLLER CHARACTERISTICS RETURN PACKET 


C_FLGS = (9, 0, 16, 0) 
C" TIME = (10, 0, 16, 0}, 


UNIT ONLINE RETURN PACKET 
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VAX-11 Blies-16 V4.1-562 
DISK SUSER2: (MLYNAR . ZRQ)ZRQAHO.REQ;:S 


MESSAGE LENGTH 
CONTROLLER NUMBER (CREDITS OVERWRITTEN) 


MESSAGE TYPE 
panes oT IO 


CHI_ORDER 


C REF ERENCE 
OISK ge CRO/RX DISK NUMBER) 
COMMAND MODIFIERS 


END C 
FLAGS 


TATUS AND SUB-CODE 


STA 
STATUS CODE 
SUB - CODE 


BYTE COUNT (LO en 


I/ T 
FIRST BAD BLOCK (L 
FIRST BAD BL 

BYTE 





Vi Wir Oo 
wey 


CONTROLLER FLAGS 


CONTROLLER 


TIMEOUT 


- 2ND CHARACTER (LOW ORDER 4 
- 2ND CHARACTER (HIGH ORDER 


A 


SEQ 0012 
P 


2ZZ 
BITS) 


1 BIT) 


TTS 


—— ee 


SEQ 0015 
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ZO }ZROAMO .RE 


VAX-11 Blies-26 V4.1- 
DISK USER2 : (ML YNAR 
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WD OF MAX L'SNS OR UNIT SIZE 
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ee 


teeesee STATISTICS TABLE (TALLY) FIELOS 


TLFIELDS = 





teeeeee CONTROLLER ERROR TALLY FIELDS 
teeeesee DRIVER CONTROLLER TABLE (OCT) FIELDS 
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oooo MN mo te a at a Ee a 


om of ote & eo 
no EEO OOOO oe! Sones 
at 
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SS ES SS OD SS OS SS ED ES ED SE GE ES GE GE SD 5m SD GE GE OS SE SS GD SS GO OS GE SS SE GE OD GD Om GS OD SE GS OE GD oD OS OD OS Ob Os OS OS OS oe 


SS A RE ne 


CSCOCSSSSSSOSOSOSOSOCOSCSOSCOSCSSCSOSOSOSCSCOOC OOOO OOOO COCO OOCOOCCOCOCOOSCOCO 


, 
{eesees ERROR LOG PACKET SAVE 
EP_FIELDS = 


_CNTR = (0, 
EL_CONTENTS = [0, 
~MSGL = (i, 
EL_CRN_LO = 3. 
EL_OK_NUM = (5, 
EL_FORMAT = (7, 
“EDR = {7, 
“BRR = (7, 
EL _CONTINUE = (7, 
EL_SUCCE = (7, 
“CODE = (8, 
~$UBC = (8, 
EL_RETRY = [20 
L_BLOCK = [23 
EL_BLOCK_HI = (24, 
EL “BLOCK_TYPE = [24 
es, 


9 
[aeeees INFORMATION ABOUT LAST 


LAST_PKT_F FIELDS = 
CAST. HRD_ERR = [0, 
LAST_CRN_LO = 
LAST_CRN_HI = 

: tes, 

feseses RURX REGISTER FIELDS 

RC_REG = 


set 
RC_ALL = (0, 





3S 09:31:41 VAX-11 Bli 
9-Oct -1985 17:36:09 DISK $USER2 EMU YNAR: 7RQ1ZROAHO. REQ;S (2) 
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bot eel ted teed ee ee bed tet 0 
sees 


Raced thew & 


Ret bad ime? ° 


ooo 


SEQ 0014 
ss-16 V 582 Page 


ALL FIELOS IN WORD 0 
NUMBER 


OF SLOTS IN CRING NOT YET RETURNED TO Host 
IGNORE In tee BIT 


Rs 
IXED ADDRESSES OF START AND 
END OF EACH RING 


Vv 

ADDR OF NEXT RRING SLOT TO BE POLLED 
ADDR OF NEXT CRING SLOT TO BE POLLED | 
ADDR OF NEXT AVAIL CRING SLOT 


CONTROLLER NUMBER 

FLAG INDICATES IF PACKET CONTENTS ALREADY PRINTED 
PACKET LENGTH 
COMMAND REFERENCE NUMBER 


la CRD/RX DISK NUMBER) 

ERROR DURING REPLACEMENT FLAG MMM 

BAD BLOCK REPLACEMENT REQUEST FLAG MMM 
CONTINUE FLAG 

SUCCESS FLAG 

ERROR CODE 


SUB CODE 
RETRY COUNT 
BLOCK 


NUMBER 
‘HIGH BITS OF BLOCK NUMBER 22Z 
! TYPE OF BLOCK NUMBER INFO RETURNED 


! FLAG INDICATES IF HARD ERROR OCCURED 
: COMMAND REFERENCE NUMBER 


! DEFINE ALL BITS 


~ —_ 


| 
L 





SEQ 0015 
10-Oct-1965 09:31:41 VAX-11 Bliss-16 V4.1-562 ege 
9-Oct-1985 17:36:09 DISK $SUSER2: (MLYNAR. TRO IZROAHO. REQ;5 (3) 


; 8 0659 0 § SESSEEESESEKSESESASESSASESEASLAECESESLESESESEEEAEEEREEESESESEREAEEEEEEERERAREDEEEERED 
3 0660 0O : é 
i 8 0661 O H MACROS & 
3 0662 0 ! a 
ls 0663 O S PESSSSESEHASASEASEASEESESEEASAEEEREEREEEAREEEEREREEEEEEEEEEEREREDEEREDEEEREEDEDEEDS 
s 0664 O : 
: 0665 0 macro | 
| ; 0666 O : 
| : 0667 ° feceses CST FIELDS. MODEL FOR WDS 3-12, 13-21, 22-30, AND 31-39. ZZZ | 
i 0668 ° 
t 0669 0O D_ALL = 0, 16, Os, $ ALL FIELDS 
t 0670 °O D_OISK_NUM = 0, 4, Os, ' DISK 
$ 0671 O D_TYPE = 4, 1. Os, 'DISK TYPE - 1 BIT ZZZ 
; 0672 O D_UNIT = 6, 4, Os, ' OI T NUMBER CORS UNIT) 
’ 0673 O D_FATAL = 12, 1. Os, ! FATAL ERROR BIT 
: 0674 Oo D_STAT = 13, 1, Os, ! DISK STATUS BIT 
; 0675 oO D_PRES = 14, 1, Os, $ SENT 
’ 0676 O D_PROT = 15. 1, Os, $ DISK PROTECTION BIT 
s 0677 O D_BEGO = 0, 16, Os, ‘BEGIN TRACK LO ZZ 
$ 06768 O D_BEG1 = 0, 16, Os, BEGIN TRACK HI ZZZ 
: 0679 O D_ENDO = 0, 16, Os, 'END TRACK ee ZZZ 
8 0680 0 D_END1 = 0. 16, Os, 'END TRACK H Z2ZZ 
: 0681 0O D_NAME_O = 0, 8, Os, ! NAME CFIRST CHARACTER ) 
’ 0682 0O D_NAME_1 = 8, 8, Os, ' NAME ar oa CHARACTER) 
$ 0683 0 D_NAME_2 = 0, 8, Os, ! NAME CTHIRD CHARACTER) 
$ 0684 0O D_NAME_3 = 6, &, Os, ' NAME A at CHARACTER) 
: 0685 0 8 D_NUL s 0. 16, Os, 'NUL AFTE R NAME ZZZ 
; 0686 90 0_OBN = 0, 8, Os, IRELATIVE 22ZZ 
3 0687 O DUPWRITE = 12, 1, Os, !'DUP WRITE FLAG ZZZ 
s 0688 0 D_ACTIVE = 15, 1, Os, tACTIVE STATE ZZZ 
3 0689 0O DUPERROR = 14, 1, Os, 'DUP ERROR FLAG ZZZ 
$ 0690 0O NODUPMEDIA = 15. 1, Os, 'NO DUP IA ZZ 
; 0691 90 D_COUNT = OQ, . Os, 'MSCP FUNCTION COUNTER 222 
$ 0692 0 
$ 0693 0O 
: 0694 0O Seaseseesese BST FIELDS seeecacesacese 2Z2ZZ 
$ 0695 90 : Z2ZZ 
5 0696 0 HI_WRO = 1, 0, 16, Os, 'HI LBN 22Z 
$ 0697 O LO_WRD = ©, 0, 16, Os, 'LO LBN Z2ZZ 
5 0698 Oo : 
8 0699 O teases BIT TEST 
; pL 4 : CCAUTION: THE FIRST ARGUMENT IS THE ADDRESS AND NOT THE CONTENTS) 
3 Ms 
+s & 0702 O BIT {3 CACDR, EXPECTED) = 
: 40703 0 (.ADDR and EXPECTED) eql EXPECTED 
: 4 0704 O 
; & O705 O ner RUE 
: & 0706 O else 
’ 0707 °O FALSE )s, 
F 0708 O $ 
: one : sencese RORX WRITE 
5 : 
s MO711 O WRT_RORX (0, FIELONAM, IMAGE) = 





10-Oct-1985 09:31:41 AX-11 Blis@e-16 V 


4.1-582 
9-Oct-1985 17:36:09 DISKSUSER2: FHL YNER. ZRQIZROAHO .REQ;5S 


RC REG” <Sf ieldexpend (FIE LONAM)> = IMAGE; 
P ¢ (stupvel « 0)) = .RC_REG; 
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° 

sd 

~ 

Ww 
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SEQ 0017 
10-Oct-1985 09:31:41 VAX-11 Bliss-16 V4.1-5862 , et 16 
9-Oct-1985 17:36:09 DISK $USER2: [ML YNAP . ZRQ)ZRGAHO.REQ;5 (4) 


; 0718 ° § £66006660660666604066666606460060606604606460606644666066460606466064600646006046060000440006 
1 g rs 
0720 0 : STRUCTURES * 
¢ 0721 °O $ “ 
i: o72e 0 ! CBRSOASREEOSEESSERESEEEERESEREEEAEESEEEEEEEEEEEEEDESEEDEDEDDEDEEEEDEEREREE REESE 
| 9724 9 feseses NIBBLE (4-BIT) VECTOR STRUCTURE | 
0726 90 Leiiisatiiinn 
| : O727 O : NIBVECTOR (I; Py = 
s 0726 0 ; ie ¢ 1) / 
; oan : : NIBVECTOR : I / 2) <CI t 2) and 4, 4>; | 
; 60731 («0 tesesae RORX ACCESS ALGORITHM 
: 0732 90 
8 0733 Oo ea 
: 0734 0O x (0, P, S, E) = | 
s O735 1 begin 
; 0736 i lecal 
: aes a ties sdabwel 0 6) <0, tevel, © 
= > & os < 8 a > 
; 60739 «21 RC“REG : . , 
’ 0740 1 end 
P 0741 O <P, S, E>; 
5 COMMAND QUALIFIERS 
’ ese ZRQAHO .REQ/LIST=ZRQAHO.LIS/LIBRARY =ZRQAHO .L16/SOURCE =PAGE :53 
- E Mb 8 00 t6 0 
me 
Eases ay Min: 2 
: Lexemes/CPU-Min: pin 
; ry Jeed: 
s Li erery Precept lat ton Complete 
| 


i ; 
en NNO ee _ a | 


_ 
x 
~ 


8 ae 


eat ttt. 


PEPE ETE EET CERERERELET LTT TT EREEEE 
SUNK SSSUTRUPUNESSOUAUSTUNESSRS Karave suey 
a a eo lll ol lc dd dd od ed ed eed ed odd ed ee eT 


a nee 


SEQ 0018 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4. age 2 
ROAHO .BL1;4 C2) 


li 1- 
10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR .ZRQ) 


g; 


REVISION HISTORY: 


REV 1.6 11-APR-84 MERGED FIELD AND MANUFACTURING VERSIONS OF THE RO/RX EXERCISER. 
ADDED SUPPORT FOR THE RUXSO. 


REV 1.7 O1-MAY-84 ADDED CODE TO GET DEVICE TYPE FROM CONTROLLER CHARACTERISTICS 
ADDED APT BREAKS IN UNIT_INIT ROUTINE; CORRECTED SOFT SEEK ERROR 
TOTALS; PROTECT MEDIA ON DEFAULT. 


| 
REV 1.6 06-JUL-84 ELIMINATE GETTING DISK TYPE FROM ID BLOCK ON A RESTART; | 
REV 1.9 19-SEP-84 ON END OF PASS, WAIT UNTIL LAST PACKET RETURNED BEFORE WRITING IP. 


REV 2.0 0O9-NOV-84 DON'T OUTPUT DUP STATS HEADER IF NO WINCHESTER. 
FIXED ' T SENT BY HOST’ PROBLEM BY USING OPERATOR- 
SPECIFIED BR LEVEL WHEN SENDING PACKETS. 


REV 2.1 27-DEC-84 ADDED APT MODE QUESTION; ADDED RETRIES TO OUP TESTS. ADDED CODE TO 
INT_GEN ROUTINE TO MAKE IT COMPATIBLE WITH MICROCODE VERSION 9.1. 


REV 2.2 04-APR-685 IN POLL_RRING AND POLL_CRING yp he I ZERO INTERRUPT COUNTERS ON 
ENTRY TO PREVENT SL e- LEN ADDRESSING. 
CHANGED HEADER ge AND .REQ FILE FOR COMPATIBILITY WITH XXDP v2. 
MADE DUP COMMAND TYPE = 0. 

REV 2.3 17-JUN-85 ADDED CODE TO HANDLE DUP’'S OUT OF RANGE STATUS. REPORT BOTH WORDS 
OF — IN ERROR MESSAGES. ACCESS LENS O AND 100 IN ACCESS 


REV 2.4 18-JUN-85 ADD AND REARRANGE APT BREAKS FOR APT COMPATIBILITY. BALANCE RATIO 
OF REACS TO WRITES C2: :1) WHEN RUNNING WITH FASTER CPU. PRINT DUP 
FATAL MESSAGE NUMBER. INCLUDE DUP FATAL MESSAGE. ERROR CODE S. 
COUNT “ZERO FILL” AS DATA wv: ON PARTIAL BLOCK TRANSFERS 
FOR DISK ERROR RATE CALCULATION 


REV 2.5 27-JUN-85 QI0_OK WILL BE TRUE WHEN QIO COUNT IS LESS THAN COMMAND RING - 2 
TO AVOID DISCARDING PACKECTS AND HENCE SEQUENTIAL RANDOM 
we OPERATION. REMOVE DUP AND PLACE INTO ANOTHER 


Se ee ee ee 8k 





SEQ 0019 





:06 VAX-11 Bliss-16 V4.1-582 
ies. ee 10-Oct-1985 09.31.00 DISK SUSERE EMR YNAR SROTEROAHO.8L104  o™ 33 
| 
ei. 0096 i TABLE OF CONTENTS 
| c 0098 | 
c 9100 1.0 : 
+ & O10 i 172 | 
, ; 0103 1 173.1 | 
t 0104 i 1.2.2 
t 0105 1 1.3 
1 & Sort t's 
£8108 | - 
; € 0110 1 2.0 OPERATING INSTRUCTIONS 
, : 0111 1 3°14 QUESTIONS 
1 € Otte 3 3:2 SOFTWARE QUESTIONS 
; © 0114 1 3.0 ERROR TYPE 
; € 0115 1 31 ERROR INFORMATION 
; € 0116 1 3°D INITIAL IZATION ERRORS 
+e OL? 1 3°3 EXERCISER S 
0118 1 3:4 ERROR LOG MESSAGES 
+ € 0119 1 3°5 SCP ERRORS 
9120 1 3.6 SAMPLE ERROR STATEMENT 
+ & Oise i 4.0 PERFORMANCE AND PROGRESS REPORTS 
1 & Oise it 5.0 TEST SUMMARY 
; € 0125 1 5:1 INITIALIZATION SUBTEST 
; © 0126 1 5:2 EXERCISER 
‘ tg H : 5.3 T SUMMARY 
0129 1 6.0 ERROR CODES 
1k ois, i 7.0 DATA PATTERNS 
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RD/RX EXERCISER 


1.0 


i 


1.2 


1.2.1 


1.2.2 


1.4 


1.5 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


This am will functionally at and exercise RQDX 
or Controller/Disk Drive subsystems. It is designed 
to verify that the ystem is functioning correctly and 
operating within design specifications. 


SYSTEM REQUIREMENTS 


LSI - 11/723 processor with 28K or more of memory, console 

device (eg. VT100) and RQDX. or RUXSO controller board and 

roa ped es, 1 or RDOS2 WINCHESTER drive(s) and RX-50 FLOPPY 
rive(s 


SOFTWARE REQUIREMENTS 


This diagnostic is designed to run with the Diagnostic 
Supervisor as described in paragraph 2.0. 


RELATED DOCUMENTS AND STANDARDS 


XXDP+ SUPERVISOR/USERS MANUAL  C!iQus 
U@SSP UNIBUS/Q-BUS STORAGE SYSTEMS PORT 
MSCP MASS STORAGE SYSTEM PROTOCOL 


DIAGNOSTIC HIERARCHY PREREQUISITES 


The hardware, other than the subsystem being tested, is 
essumed to work properly. False errors ma reported if 
the processor, memory, etc., do not function properly. 


VAX-11 Blies-16 V4. 


DISK $SUSER2: (MLYNAR . ZRQ)ZRQAHO.BL1;4 


oe -__ 


= 


2: (MLYNAR . ZRQ)ZRQAHO.BL1;4 


VAX-11 Bliss-16 V4.1-582 
$USER 


DISK 


:06 
31:20 


1985 09: 
S 09 


10-Oct-1968 


10-Oct- 


RD/RX EXERCISER 


-~ te me ee 


ADDRESS 
160000 
121000 
2000 
400 


free space will occur 


In a machine with more memory, 
between the exerciser and the DRS. 


TTY I/O AREA 
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RO/RX EXERCISER 


2.0 


2.1 


SEQ 0022 
10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 Page 6 
10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZROAHO.BL1;4 (6) 


OPERATING INSTRUCTIONS 


This is ea Rev C Supervisor Diagnostic: for operating 
instructions, please see chapter 5 of XXDP+ operator's 
manual. They are no 1 r included in the diagnostic 
because it is desired that ea change in those instruc- 
aot not require a re-assembly of all Supervisor Diag- 
nostics. 


The following series of eoetions collect the para- 
meters necessary to identify each disk subsystem. 


= z 
w a< 
par 
; 


Hardware Configuration Questions 


The progrem will ask the followi questions in 
response to a START command (aahkcasr ier). 


CHANGE HW (L) Y ? 


Answer NO to use the pre-built answers for all hardware 
questions. This ereeres will be released pre-built to 
test three units with default anewers shown below. The 
pre-built answers may be changed at any time with the 
setup utility. Anewer YES if you want all the hardware 
questions to be asked. 


NUMBER OF UNITS (D) ? 


No default. Answer with the number of disk drive units 
to be exercised or tested. This answer will determine 
how many times the following questions are asked. A 
r of 1 to 4 unite may be specified. A unit number 
will be assi sequentially from O by the Diagnostic 
supervisor for each unit. 


IP ADDRESS (0) 172150 7? 
Enter the address of the IP register of one RQDX or RUXSO 


es addressed by the processor with rrerg? | management turned 


off. The program expects an even 16-bit address in the 
range of 1 to 177774. 172150 is the default. 


TT ~ 


ox 
~ 
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RD/RX EXERCISER 


4. 


10. 


VECTOR ADDRESS (0) 154 ? 

Anewer with the interrupt vector ofthe same RQDX or RUXSO 
controller described in the above question. A vector address 
in the range of 4 to 774 may be specified. 154 is the default. 


BR LEVEL [USUALLY 4-RQDX 5-RUXSO) (D) 4 ? 


Answer with the bus request interrupt level used by “¢ 
ee Seeerensee- Levels 4 through 7 are acceptable. is the 
feu 


ORIVE NUMBER (D) O ? 


Enter the peaionl unit number for one drive essoci ated 
with the IP address ere. Drive numbers ere in the 


range of 0 2. aS. r entered here must 
match the unit p ug ~on the front panel of the drive. me 


must be within the aes, ¢ poi by the jumper (LUNO 
on the RQDX or RUXSO con controller board. 0 is the default 
answer. 


ALSO RUN DUP EXERCISER (L) N ? 
Y_TO HAVE TESTS PERFORMED SPECIFICALLY WITH THE 


ANSWER Y 
DIAGNOSTIC BLOCKS. SUCH DUP TESTING, IF SELECTED, IS 
INTERLEAVED WITH NORMAL EXERCISER TESTING. 


WRITE ON DIAGNOSTIC AREA (L) N ? 


IF THE OUP EXERCISER IS CHOSEN TO BE RUN. ANSWERING 
TO THIS pad Ee ADDS WRITE TESTING IN THE DIAGNOSTIC 
E USED T TERMINE 


BLOCK AREA. Ss WHETHER A 
UNIT IS WRITING PROPERLY, WITHOUT USING THE CUSTOMER AREA. 


TEST ENTIRE CUSTOMER DATA AREA OF THIS DISK (L) Y? 
This question is asked to give the opportunity of aim) S ine the 


i range over whi the testi will perfo 
An affirmative answer will oa no linits to be i for 
ag Boa he in tion. . oe ive enswer will cause limits 
es defined 7h tae following four questions. 


LOWER OCTAL WORD OF BEGINNING LBN ADDRESS (0) 0? 
Enter in octal the less significant 16-bit word of the lowest 


—— ee _— + -— - ~- 


10-Oct-1985 09:32:06 VAX-11 Blies-16 V 
10-Oct-1985 09:31:20 DISKSUSER2: CHL YNAR: TRO} ZROAHO. BL1;4 
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SEQ 0024 
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ZRQAML RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-562 Page 
sa 10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR . ZRQ)ZRGAHO.B8L1;4 (7) 
0325 LBN address in the test range. The value may be from 000000 
ones to 177777. 
$e 
11. WIGHER OCTAL WORD OF BEGINNING LBN ADDRESS (0) 0? 
1 


Enter in octal the more significant 16-bit word of the 
lowest LBN address in the test range. 


geecccce 


12. LOWER OCTAL WORD OF ENDING LBN ADDRESS (0) 150477? 


| 
pepe of in octel the less significant 16-bit word of the | 
t LON eddress in the test renge. 150477 is the 


set ty 


highest LEN eddress for an RDS2. 


eooeooesco 


13. HIGHER OCTAL WORD OF ENDING LBN ADDRESS (0) 0? 


ap 0 in octel the more significant 16-bit word of the 
highest LBN address in the test renge. 


Note: 
The four previous questions ere usually software 
Parameter a: but since three diifferent disk 
drives exist on the subsystem, this becomes a unit 
oe Sere question. It is ‘possible to specify en LEN 

ich is _too lerge since we are dealing wit different 
Grives. The program will check for block number bounds 
end, if ergy, Mac exceeded, will assign the maximum 
bounds for drive. 


scooocoocoecoosoosoo 
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14. WRITE ON CUSTOMER DATA AREA ON THIS DISK UNIT (L) ? 


nee ae YES will destroy any customer data thet is on 
: pein gradi the following warning message wiil 
appear, followed by ea confirmation prompt: 


@ WARNING - CUSTOMER DATA AREA WILL BE OVERWRITTEN: ... 
* CONFIRM (L) ? 


This question will default to NO if the operator hes de- 
cided to bypess the hardwere questions. Otherwise, 
there is no default. 





| SEQ 0025 
ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Blies-16 v4.1-582 5 
| 3 10-Oct-1985 09:31:20  DISK#USER2:(MLYNAR ZRQ]ZRQAHO.6L1,;4 °"" (a> 


2.2 SOFTWARE QUESTIONS 


Softwere Pereameter Questions 






0377 


———— ene ee 


The em will esk the followi motions nN response 
to TART, RESTART, and CONTINUE ‘comm 


CHANGE SW (L) Y ? 


bypass the followi questions in this sec- 

This question should normal ly be enswered when 
tas Exerciser is first run. A NO enewer will cause the 
Exerciser a eeeees ihe default paranetere shown with 
each Then, ng on the errors de- 
mage ae ie ae “o ~ agp AR a to age ot thie anewer to YES 
est peremeters end further isolete the 


Enter the time of ay Lis 24 Pa ged formet). ORS does not 
ALLOW leading zeros ERED FOR numeric velues. 

For exemple, for 14 minutes pest er > you would 
enter 14, and for 30 minutes pest 3 in afternoon, 
enter 1530. 


3. HARD ERROR LIMIT (D0) 32 ? 


Enter he amar of hard “rere egg. pag oigatle a ah te 
rom testing. nuaber in r ° ° 
e5588"si1!"Se actepted: ~ 


4. TRANSFER LIMIT IN MEGABYTES (0 FOR QUICK PASS) (D0) 0 ? 


When the specified number of = have been transferred 
to/from e@ unit, the unit will be dropped from testing. 
When ell units ere dropped, an end-of-pass will be ind: - 

cated. This is the we used to determine how long 


The only other way the Exerciser will declere end-of- 
pess is if all units are dropped because the error limit 

on each is exceeded. However, the operator can always 
chert the program at any time ‘he typing CONTROL -C. 
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ENTER TIME AS HHMM CEXAMPLE: 1305) (D) 0 ? ; 
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RDO/RX EXERCISER 
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10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


PERCENTAGE OF ‘FIXED DISK‘ OPERATIONS OUT OF TOTAL OPERATIONS (0) 99 ? 
In order to maintain 


pengantaie. of exorer! 
rest go to the RXS0s). 


ere ivated internally by the 
ive type end percentage. 


CLEAR STATISTICAL TABLES AFTER PRINTING (L) N ? 

Anewering YES causes the stati sticel i 'giée to be cleer- 

ed te zero efter the report is eat’ Bite Ceither et end of 
or et Otherwise, cumuletive 
ere meinteined. 

REWRITE BLOCKS WHEN “FORCED ERROR” DETECTED ON READS (L) 

oe apomentes ing @ bed block on the RDS1 or RDS2 diek 
or FURBO" contr e@ reed or e write ation), the the RaDX 
hyeiceL locet ag .o 


feel 1 ts ox, This operst ion i 





it 






is operation is 









dons rn ets a ~ fo. oe ite 

eubeequent t -@ write 
eperes dete ie fil 
with e "Forced thet the dete e 
the revectored location is su .. controller re- 
turne eaves block is re-read. An- 
Swer 


» however, 
rgd " perticuler disk unit 


HALT ON BAD-BLOCK HARD ERRORS (@e 35, 38) (L) Y ? 


toke “9 only 


When the E “Healt on Error” 

ewitch set the Exerciser passe on 

ANY error. desired th the 

testing continue on e 0 error, even ith the HOE 
No the ion. 


HALT ON OTHER HARD ERRORS (@e 31-34, 36-37, 39-45) (L) Y 


mnie, meatier is ole! ier to question 8. but refers to 
block type of Herd Errors. 


recieer is run w 


SE | 
VAX-11 Blies-i6 V4.1 p 10 
DISK SUSER2: [ML YNAR . ZRO)ZRQAMO.BL1;4 (9) 


oe 


NE - 





SEQ 0027 


ZRQAM1 RD/RX EXERCISER 19-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-5862 Page 11 
vo2.3 10-Oct-1985 09:31:20 DISK $SUSER2: (MLYNAR. ZRQJZRGQAHO.6L1;4 (10) 
’ : gee? . 10. HALT ON SOFT ERRORS (@s 50-54) (L) N ? 

C 0471 1 This tion is similar to qu*stion 8, but refers to 

; : oavs ; Soft Errors. 

; c 0474 1 11. COUNT EACH RETRY AS A SEPARATE SOFT ERROR (i) N ? 

: 

: € 0476 1 On agentes te the error on a read/write, the control- 

s € 0477 1 ler retries the operation a number of times. If the 
+; € 0478 1 operation is eventually successful, this is reported as 
1s € 0479 1 e Soft Error. The error log packet contains the number 
; C 0480 1 of retries performed before the operation was success- 
+ C 0461 1 ful. Normally, the whcle sequence of retries is classi - 

s € 0482 1 fied as one Soft Error. Answer Yes to the question if it 
3; € 0463 1 is desired to count each internal retry attempt as a 
' . ones ; seperate Soft Error. 

s C 046 

5 3 oar : 12. RANDOM SEEK MODE (L) Y ? 

: 

; C 04868 1 Answer YES to cause block numbers to be chosen randomly. 

; C 04869 1 Answer NO to cause block numbers to be selected sequen- 
: & ones : tially. 

: 

’ & one : 13. UNITS TO BE SELECTED AT RANDOM (NO, IMPLIES SEQUENTIAL) (L) N ? 
’ 

s C 0494 1 This question is optionally asked if the answer to the 
; € 0495 1 previous question is N[o]. The selection of units for 
s €C 0496 1 sequential operations is affected by the answer to this 
s C 0497 1 question. If the default answer is chosen (N[o]), then 
3 € 0498 1 units shell be selected in a predetermined manner in 
s € 0499 1 accordance with the typical seek time margins for each 
' f 0500 1 drive. If the alternate answer is chosen (Y{es]), then 
; C 0501 1 the units will be chosen at r in accordance with 
' " Ones : the percentages specified in Software question 4 

; & Ones : 14. READ-COMPARES PERFORMED AT THE CONTROLLER (L) Y ? 

; C 0506 1 Answer ing YES ceuses all read commands to include the 
; € 0S07 1 “compare” modifier. This essentially forces the cor- 
; C 0508 1 troller to perform two read operations on the same disk 
’ 3 eae : address, and to compere the results. 

’ 

s € 0511 1 The followi mess will appear after the operator has 
; © OSi2 1 answered this quant tan 

+ C 0513 1 

; € 0514 1 

: & Satz : 15. RUNNING UNDER THE A.P.T. MONITOR (L) N ? 

: 

+s € 0517 1 THIS QUESTION SHOULD BE ANSWERED N (DEFAULT) IN THE FIELD. 
; © 0518 1 IT ENABLES PROGR TO KNOW THAT IT IS RUNNING UNDER A 
; C 0519 1 SPECIAL CAUTOMATED PRODUCT TEST) MONITOR. 
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SEQ 0028 
1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blises-16 V4.1-582 rene 1% 


R 1 
10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 


83 
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AMOANONNNNAONNONNANAAANNNNNANNANNNNANNANANNANANNNNNN|ANNNNANANO % 


THE REMAINING QUESTI"NS ONLY APPLY TO UNPROTECTED DISK UNITS. 


Purr 


16. WRITE-COMPARES PERFORMED AT THE CONTROLLER (L) N ? 


Answering YES causes all write I/0 requests to be 
c d to write-compare. After each write, the con- 
troller will read the date and compare it to date 
re-obtained from the host. 


eagagRReeeaaR 


17. CHECK ALL WRITES AT HOST BY READING (L) Y ? 


This question will only be asked if the previcus ques- 
tion was answered NO. Answering YES causes all writes 
to be checked by the host by reading the data immediate- 
ly after the write ration. This option consumes 
extra CPU time, and doubles the amount of storage re- 
quired for writes. Therefore, it is only recommended 
when drive write-compare operations are suspect. 


RA 
te 


18. USER-DEFINED DATA PATTERN (L) N ? 


An answer of YES allows the operator to define his/her 
own data pattern to be used in all write operations. A 
NO enswer will allow the operator to select a 
pre-defined data pattern in the next question. 


BEEEESS 


: 


19. SELECT PRE-DEFINED DATA PATTERN (0 FOR SEQUENTIAL SELEC- 


3998998 
Suneoe 
Oe ee ee ee ee ee ee ee be ee ee ee ee ee ee ee ne ee ee ee ee ee pe pe pe pe pee pe 


oes TION) (0) 0 ? 
0556 There are 21 pre-defined data patterns available, 
0557 selected as ito 21 (see section 4.9). 4 zero answer 


will cause petterns 1 to 21 to be sequentiall selected 
for each write. (Note that pattern 1 consists entirely 
of random numbers). 


aa 
Se 


peeey 


20. NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM) (D0) 16 ? 
PATTERN VALUES (0) ? 


These questions will only be asked if the operator hes 
decided to define his/her own date ttern. The actual 
bit patterns will be entered as octal (PDP-11). 


: 


é 


: 
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SEQ 0029 


VAX-11 Bliss-16 V4.1-562 


10-Oct-1985 09:32:06 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 


10-Oct-1985 09:31:20 


This program has four types of error classifications; 
system fatel, drive fatal, hard and soft. 


SYSTEM FATAL ERRORS 


System fatel errors ere used to indicate thet an error 
was detected | the otegnent te Supervisor in relation 
to loading/controlling the diagnostic process. 


The content of each error is such that it should be 
self explenatory. However, the messages utilize some 
terms that ere specific to the disk system, and may 
require some getting use to. 


ORIVE FATAL ERRORS 


Drive fetal errors are a result of: 


en error that is considered fatal to the drive, but 


testing will continue. 


Hard errors ere a result of: 
i. retries of a soft error or + 
2. @ non-recoverable error 
3. eo soft error if retries are not set. 


# Note: Retries are executed in the controller 


Soft errors are media related errors. All soft errors 


will be retried by the controller. 


Note: Soft errors are retrieved from the controller vie 
the error log capabilities of MSCP. 
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SEQ 0030 
RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 Page 
10-ONct-1985 09:31:20 DISK $USER2: [ML YNAR. 7RG}ZROAHO. BL1;4 €13) 


3.1 ERROR INFORMATION 


All rel error messages will include the type of error 
ievere em-fatel. drive-fatal, hard, soft) and a unit number 
the error applies to ea controiler, then only the first 
ao number of the controller will be given. (The user 
will know the other unit numbers when subsequent “drop 


| 
unit” messages ere printed). | 


Besic error messages provide more details about the 
error. The Exerciser will print all basic error messages, 
— with the disk address, if applicable. In some 
where e drive-fatal error applies to a contrelier. 
the @ controller's IP address will be printed. 


Extended error messages will be used to print the 
relevant fields of command and end message packets, stetus 

codes, SA ister contents. and error log messages. All 

values will in octel (POP-11). 


The error messages in this section do not include 
errors detected and printed by the Diagnostic Supervisor. 


3.2 INITIALIZATION ERRORS 


Two kinds of errors will be rted to the rator 
during the Initialization Test. he System-fatal error is 
too many units vag Spa A system-fatel error will cause 
the Exerciser to abort 
Drive-fatal errors only affect the unit(s) involved. 
Testing will continue on all other units. This class of 
errors includes, but is not limited to, the following: 

1. Register Existence Test failure (no drive present) 
Vector Test failure 
BR Level Test failure 
Initialization sequence failure 
Online failed 


Access failed 
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SEQ 0031 


ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bli °F -16 V4.1 Pege i5 
vo2.3 10-Oct-1985 09:31:20 DISK USERS MLYNAR. SOT ZROAHO. BL1;4 oer ad 
C 0665 1 3.3 EXERCISER ERRORS 
C 0666 1 = — = = = = weemmnnnnnnccnne 
C 0667 1 
C 0668 1 aoe errors reported during this test will originate 
C 0669 1 MSCP end ed to text. packets. The ao gp sets field will 
: 9829 t — Te to text and pri nteg | 5 a a basic error 
71 message. ode value will follow % extended error 
‘ Oet¢ : messages on JO ay 
C 0674 1 The following list represents some of the error conditions 
C 0675 1 reported via MSCP: 
C 0676 1 
C 0677 1 
: 06768 1 1. Disk unit went offline (a sub-code may follow 
0679 1 detailing the reason) 
3 0681 i 2.- @ 
‘ ompere error 
3 0662 i 
3 oes : 3. Date error (a sub-code may follow) 
: pars : 4. Drive error (a sub-code may follow) 
C 0667 ; 5. Host buffer access error 
0669 i 6. Media format error (a sub-code may follow) 
0690 1 
0691 1 
0692 1 
& 06935 1 
0694 1 
C 0695 1 3.4 ERROR LOG MESSAGES 
0696 1 = j.- = = weemeenenceen----- 
0697 i 
0696 i The contents of the error-log messages received from the 
0699 1 controller are printed as received, and should be deciphered 
0700 1 using the MSCP specs. 
0701 1 
07 1 
0703 1 3.5  MSCP ERRORS 
O704 1 = — = = = wemeneccee- 
0705 1 
0706 1 An MSCP error occurs when the host receives an Invalid 
o707 1 Command End Message from the controller. In such none. the host 
0708 1 will print out the erroneous command followed b reason 
f 0709 i for the error. If extended printouts are alee then the 
0710 1 entire contents of the end message cdi be displayed in 
C o711 1 octal without interpretation of the date 
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SEQ 0032 
RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 age 16 
10-Oct-1985 09:31:20 DISKSUSER2: (MLYNAR .ZRQ)ZRGAHO.BL1;4 (15) 


3.6 SAMPLE ERROR STATEMENT 


The errors listed by the exerciser are usually very des- 
criptive and are self explanatory. The following is an example 
error statement. This error statement is the extended error 


ower es eee + 
ea mee 


Cexample) (comments) 

DISK XXX ‘DISK UNIT NUMBER 

INVALIO COMMAND 'MAJOR STATUS CODE RECEIVED BACK 
SUB-CODE XXXx 'SUB-CODE OF GIVEN COMMAND 

c : READ 'COMMAND GIVEN TO ORIVE 

LON: XXXXX ‘LOGICAL 8..OCK NUMBER GIVEN 
BYTE C OF BYTES WANTED TO READ 


OUNT IN COMMAND XXXXX !NUMBER 
ACTUAL @ OF BYTES TRANSFERRED XXXXX !NUMBER OF BYTES ACTUALLY READ 


jeces. The first 5 bits represent major status which is given 
the “invalid command” message. 11 remaining bits represent 
sub-code. which tells in greater detail the error in the con- 
troller. The LBN is the logical block on the disk the controller 
was trying to read. The byte count refers to the number of bytes 
the controller was going to read off the LBN. The actual number of 
bytes transferred refers to the number of bytes read before the 
error. 


The status code in an end eooongee is broken into two 
The 
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SEQ 0033 
RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-562 age 17 
10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR . ZRQ)ZRGAHO.BL1;4 (16) 


4.0 PERFORMANCE AND PROGRESS REPORTS 


i summery report is printed at the end of each_ pass of 

the Exerciser or upon demand by the operator. The fields may 
be cleared to zero efter the report is printed depending on 
the operator's response to this option in the software ques- 


——er ~-<— eee - 


Errore are grouped into two basic categories: hard and 
soft. Eaech is sub divided into four more categories, depend- 
ing on the most probable classification for that error. 
The sub categories are: 
1. disk related errors 
2. seek Cor format) related errors 
3. controller or drive related errors 
4. host (the CPU) related errors. 
All numeric velues are in decimal radix. 
UNT @ OF BYTS @ OF £BYTES -- HRD ERS -- -- SFT ERS -- 
@® TYPE READS READ WRITES WRITTEN DAT SEK DRV HST DAT SEK DRV HST 
X MXX% MXXKX XXXKX XMRXXX XXXXKXX X x x x xX x x x 
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RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V 
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10-Oct-1985 09:31:20 DISKSUSER2: (ML YNAR. ZRQ JZRGAHO .BL1;4 


5.0 TEST SUMMARY 
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This exerciser consists of two gerte: the initialization subtest, 
and f. 


performance exerciser. 
poses oP these two parts he/she wishes to run; they both must 
exec 


-1 INITIALIZATION SUBTEST 


The purpose of this subtest is to verify the hardware 
configuration ee ified by the operator, and to bring each 
unit online. nitialization Subtest will always precede 


the execution 7 Pot other test. 


Firet, the presence of each ive register will be veri- 
fied, al with a check on level specified by the 
operator. hen, an inlatalication will be issued to each 
controller configured pot testing. When the initialization 

e hes — leted, an attempt will be made to bring 
each cong A online. thie succeeds, one or two MSCP reads 
will be issued to the inner-most LBN of each selected disk to 
to ensure that each disk drive can seek and be read. 


Any drive-fatal or hard errors encoun during this 

test will ceuse the arevenabled.t ao po peiee be Ro d. If 

oasic error messages are 1 ee int 
out the specific reason r_droppi the mitts). eed orth, 

the failed aniete) lg not ested unless the operator 

intervenes (adds unit(s) or restarts Exerciser). 


Upon successful completion of the Initialization Sub- 
test, the progrem will begin executing the Exerciser. 


5.2 EXERCISER 
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VS UNH OVS IFUS2UNrHO ~“ wnrr 


The purpose of this subtest is to exercise the disk drives 
in @ manner similar to the typical usage under standard oper- 
ating oreoete Execution of this test should give an indica- 
tion of the everest performance of the disk drive subunits. 
i will utilize random disk addresses, random word 
counts, and date Gavnerny. ell subject to the limits and 
gi Be gg made by the operator. All protected disks will 
be subject to read-only operations, while unprotected disks 
— be read or written, depend = on the answers given to the 

tware parameter questions. nd-of-pass will be declered 
when the specified number of bytes have been transferred for 
ell the disks taken as a whole. 


he operetor is not able to Gaseat 
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RD/RX EXERCISER 


If a read/write error occurs during ie test. then the 

controller will initiate an ropriate number of re- 

tries. If ell retries fail, 

ted to the host. an Sa message 
2 te ent t will be d d if the hard t 

mary repor unit wi ropped i ard error coun 

has exceeded the specified limit. 


5.3 DROP UNIT SUMMARY 


During the Initialization Subtest, individual units will 

be from the test e if they are unable to be 

t online or the operator specified drive does not match 
re. 


thon | the Exercise, the program will drop ea unit for 

.. te thet rgreter ou normal p nary ie og each vis. ze 
complete ransfer o megabytes, re is i 
the : and ne eatt-d sd 


he 0 hls Pr per limit, or 
if ea fatel error is detected. Units hard-dropped may leter be 
added to the test cycle. However, statistics tore the hard- 
edded unit will be cleared to zero; if a transfer limit 
was specified, in go case the unit was soft-dropped, the 
statistics rg or may not be cleared depending on the oper - 
ators answer to Software question 12. 
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RD/RX EXERCISER 


6.0 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


ERROR CODES 


This section describes the error codes generated by this exerciser. 


SYSTEM FATAL ERRORS 


More than 4 units specified 


ORIVE FATAL ERRORS 


18 
19 


Santronior couldn't be addressed 
t the S given. 


Controller didn't interrupt at 
the interrupt vector given. 


Controller didn't interrupt at 
the BR level given. 


Init sequence failed. 


Fatel Controller error. 


Failed to bring unit on-line. 


Write protect conflict. 
Access to either the inner or 
the outer track failed. 


Unit went off-line. 
Drive type not known. 





Wrong IP address selected 


Wrong vector address sel- 
ected. 


Wrong BR level selected. 


Either one of the four 
initialization steps did 
not receive the correct 


troller, or one of the 
steps timed-out. 


The error bit (bit 15) in 
the SA register was set. 


On-line response had an 
error code. (see also 
#s 22 and 23.) 


The unit wes herdware 
write protected and write 
a were requested 
on the unit. 


Innermost or outermost 
track's header may be cor- 
repeated. 


The version of the Exer- 
ciser being run does not 
support this disk type. 


VAX-11 Bliss-16 V4.1-582 ege 
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SEQ 0036 
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10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


| ZRQAML RD/RX EXERCISER 
— vo2.3 
; C 0906 1 20 Feiled to send ‘Set Controller 
+ C 0907 i Characteristics” commend. 
; © 0906 1 
; € 0909 1 
: © 0910 1 
s © 0911 1 21 Kontrolior returned w urene ‘end 
1; € 0912 1 for the ‘Set Controller 
 C pad, : el BE 5 command. 
: 0915 i 22 Feiled to send ‘On-line’ command 
s 0916 1 
+; € 0917 1 
' 0916 1 
' 0919 1 
’ oaat 1 23 Centred ler returned wrong ‘end 
’ : a 3 code’ for the ‘On-line’ commend. 
$ oaee ; 
3 0924 i 24 Drive went to the ‘Available’ 
s C 0925 ; stete. 
Sa no canons 
H oa eancaeaeaenacaace 
p44 1 
09 i 31 Controller received an invalid 
’ 0931 1 command. 
:€ 558 I 
5 
5 0934 i 
r 0935 1 
5 0936 1 
’ pas : 
: 9939 i 32 Command eborted by the Control- 
s 0940 1 ler. 
; C 0941 1 : 
’ one i 35 Medie formet error. 
$ 0943 i ; 
i oss : 36 Drive write protected. 
; ones 1 37 Centroller read or write coa- 
i 0947 i pere error. 
’ 09468 1 
’ 9949 : 38 Dete error. 
: 
; 3 39 Host buffer access ¢rror 
; 40 Controller error. 
t 
s i 
’ i 
’ o9se 61 





Either the unit is off- 
line or the Diegnostic is 
corrupted beceuse of eny 
problems with its RAM. 


Problem with the Control- 
ler microcode or the port/ 
DMA interface. 


Either the wit is off- 
line or the diegnostic is 

corrupted beceuse of any 
problems with ite RAM. 


Problem with the Control- 
ler‘'s microcode or the 
port/DMA interface. 


The Siagnest ta is cor 
ted were of Ran. 


there is oa problem with 


Commend timed-out in the 
Controller. 


CRC error in data 
field of a disk hc 


Difficult to ennnger ize 
without leoking et the 
error sub-code or any 
essociated error-log mes- 
sage. 


VAX-11 Bliss-16 V4.1 
DISKSUSER2: (MLYNAR . TRO} ZROAHO. 6L1;4 
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SEQ 0038 
RD/RX EXERCISER 10-Oct-1965 09:32:06 VAX-11 Blise-16 V4.1-562 Pege 22 
10-Oct-1985 09:31:20 DISK SUSER2 : (ML YNAR .ZRQ)ZRGAHO.BL1;4 C21) 


41 Orive error. See 40. : 
42 Host write compere error. Error detected when Host 
CPU a 
@ problem with ot Hos 


or Controller RAM. 
43 Messege from internel diagnostics See 640. 


44 DOuplicete wnit number detected --- 
by the Controller. 


45 Unknown end code received. ere with the Control- 
ler microcode or the port/ 


compared — 
written and read bec ood 
DMA interface. 
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SOFT ERRORS 

50 Controller error. See error-log packet for 
details as the exact cause 
may not be evident. 

51 Host memory eccess error. See #50. 

S2 Disk trensfer error. See #50. 

53 ‘Stenderd Disk Interconnect’ See #50. 

error. 
S4 ‘Smell Diek’ error. See #50. 
OUP ERRORS 


et pee fet de 


60 Unable to load locel controller DUP media. 
61 (Not used) 

62 Illegel unit number. 

63 Illegal reletive or physicel block. 

64 Device error. 
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SEQ 0039 
RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-562 ~~ a 
10-Oct-1985 09:31:20 DISKSUSER2: (MLYNAR . ZRQ)ZRGAHO.8L1;4 (21 
65 Zero length message. 
66 Unknown DUP status code. 
67 Invelid command. 
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RD/RX EXERCISER 10-Oct-1985 09:32:06 


10-Oct-1985 09:31:20 


DUP ERRORS (CONTINUED) 

68 No region available. 

69 No region suitable. 

70 Program not known. 

71 Load failure. 

72 Standelone. 

73 Unknown DUP status code. 
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10-Oct-1985 


DISK SUSER2: [ML YNAR . ZRQ)ZRQAHO.8L1;4 
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BINARY 
© 000 000 000 000 000 
1 111 111 111 111 111 
1 000 101 110 001 011 
© 011 001 100 110 O11 
0 011 000 010 010 001 


NUMBERS 


OCTAL 
RANDOM 

177777 
105613 
031463 
030221 
000901 
000003 
000007 
000017 
000037 
000077 
000177 
000377 
000777 
001777 
003777 
007777 
017777 
037777 
077777 
177777 
177776 
177774 
177770 
177760 
177740 
i77700 
177600 
177400 
177000 
176000 
174000 
170000 
160000 
140000 
100000 
000000 


HEX 
0000 
FFFF 
8888 
3333 
3091 
0001 
0003 
0007 
OOOF 
OO1F 
003F 
007F 
OOFF 
OFF 
O3FF 
O7FF 
OFFF 
1FFF 
3FFF 
7FFF 
FFFF 
FFFE 
FFFC 
FFFS 
FFFO 
FFEO 
FFCO 
FF 80 
FFOO 
FEOO 
FCOO 
F800 
F000 
E000 
C000 
8000 
0000 


DATA PATTERNS 
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Pattern i 
Pattern 2 
Pattern 3 
Pattern 4 
Pattern 5 
Pattern 6 
Pattern 7 
Pattern & 
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SEQ 0042 
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ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-i1 Blise-16 v4.1 Page 26 
vo2.3 10-Oct-1985 09:31:20 DISKSUSER2;{MLTNAR. ZRQ)ZROAHO. GL1;4 (24) 
: € 1090 1 Pettern 9 0000 000000 © 000 000 000 000 000 
+ € 1091 1 0000 000000 © 000 000 000 000 000 
: € 1092 1 0000 000000 © 000 000 000 000 000 
+ € 1093 1 FFFF = 177777 1 241 111 111 111 111 
: ¢ 1098 1 FFFF = 177777 1 1412 112 111 111 111 
: € 1095 1 FFFF 177777 1 111 121 111 111 111 
; € 1096 1 0000 000000 © 000 000 600 000 000 
+ € 1097 1 0000 000000 © 000 000 000 000 000 
; € 1098 1 FFFF 177777 1 211 111 111 111 111 
; € 1099 1 FFFF 177777 4 211 111 111 111 111 
+ € 1100 1 0000 000000 © 000 000 000 000 000 
»€ 1101 1 FFFF 177777 1 111 111 111 111 111 
6 € 1108 1 0000 000000 0 000 060 000 000 000 
+ € 1103 1 FFFF =: 177777 1 211 122 111 111 111 
» € 1104 1 0000 000000 © 000 000 606 000 000 
1 € 1105 3 FFFF = 177777 1 111 111 111 111 111 
© 

+ € 1107 3 Pattern 10 B609 133331 1 O11 O11 011 011 001 
2 

; € 1109 1 Pattern 11 5555 052525 © 101 010 101 010 101 
+ € 1110 1 5555 052525 © 101 010 101 010 101 
s C1111 1 3555 032525 © 101 010 101 010 101 
6 Cine 1 AAAA 1 010 101 010 101 010 
+ € 1113 1 AAAA 125252 1 010 101 010 101 010 
;€ 1114 1 AAAA 125252 1 O10 101 010 101 010 
s€ 1115 1 5555 052525 © 101 010 101 010 101 
> C1116 1 S355 052525 © 101 010 101 010 101 
+ C1117 1 AAAA ik 1 010 101 010 101 010 
s€ itis 1 AAAA 125252 1 010 101 010 101 010 
» € 1119 1 5555 052525 © 101 010 101 010 101 
+ € 1120 1 AAAA = 125252 1 010 101 010 101 010 
+ € 1121 1 5555 052525 © 101 010 101 010 101 
; € il22 1 AAAA =: 125252 1 010 101 10 101 010 
; C1123 1 5555 052525 © 101 010 101 010 101 
» € 1124 1 AAAA =: 125252 1 010 101 010 101 010 
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SEQ 0043 


ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-S582 Page 27 
vo2.3 10-Oct-1985 09:31:20 DISK $USER2: (ML YNAR . ZRQ)ZRQGAHO.BL1;4 (25) 
C1125 1 Pattern 12 2020 026455 © 010 110 100 101 101 
€ 1126 1 2020 SS © 010 110 100 101 101 
C ile7 1 2020 SS © 010 110 100 101 101 
C1126 1 0202 151322 1 101 001 011 010 010 
€ i129 1 D2d2 151322 1 101 001 011 010 010 
€ 11350 1 D202 151322 1 101 001 011 010 010 
€ 1131 1 2020 0 © 010 110 100 101 101 
€ 1132 1 © 010 110 100 101 101 
€ 11335 1 D202 151322 1 101 001 011 010 010 
€ 1134 1 D202 151322 1 101 001 011 010 010 
€ 1135 1 2020 026455 © 010 110 1:0 101 101 
C 1136 1 026455 © 010 110 100 101 101 
C 1137 1 D202 151322 1 101 001 011 010 010 
€ 1136 1 026455 0 010 110 100 101 101 
€ 1139 1 D202 151322 1 101 001 011 010 01 
€ 1140 1 026455 0 010 110 100 101 101 
€ 1141 1 D202 151322 1 101 001 011 010 010 
C 1142 1 02645 0 010 110 101 101 
€ 1143 1 D202 151322 1 101 011 010 010 
: +348 ; 2020 0 0 010 110 100 101 101 
: 1345 : Pattern 13 6DB66 066666 0 110 110 110 110 110 
C1146 1 Pattern 14 0001 000001 © 000 000 000 000 001 
: 1149 1 0002 000002 © 000 000 000 000 010 
1150 1 © 000 000 000 000 100 
€ 1151 1 000010 © 000 000 000 001 000 
€ 1152 1 0010 | 0 000 000 000 010 000 
C1153 1 © 000 000 000 100 000 
C 1154 1 0040 000100 © 000 000 001 000 000 
€ 1155 1 © 000 000 010 000 000 
C 1156 1 0100 © 000 000 100 000 000 
C 1157 1 200 001000 0 000 001 000 000 000 
C1158 1 0400 002009 © 000 010 000 000 000 
€ 1159 1 004000 0 000 100 000 000 000 
" 1160 1 1000 010000 0 001 000 000 000 000 
1161 1 020000 0 010 000 000 000 000 
C 1162 1 4000 040000 © 100 000 000 000 000 
C 1163 1 100000 1 000 000 000 000 000 


- = ' 


: (MLYNAR . ZRQ)ZRGAHO.BL1;4 
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SEQ 0047 


POINTER CALL); 


fe 
! THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
fe THE OIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


ZRQAM1 RO/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 V4.1 age 
_ voe.3 PROGRAM HEADER 10-Oct-1985 09:31:20 DISK$USER2:(MLYNAR. sR ZROAHO. 6L1;4 (29) 
: 129 sebttl ‘PROGRAM HEADER’ 

1294 library ‘ZRQAHO.L16’ ; ! RORX EXERCISER GLOBAL LIBRARY 

1596 IMMMrequire ‘BLSMAC.REQ' ; ! DIAGNOSTIC SUPERVISOR LIBRARY 222 | 

1297 require ‘HSAXAO.BLB’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 222 ) 

3039 literal | 

OS$NBR_OF_TESTS = 1; ! NUMBER OF TESTS IN THIS DIAGNOSTIC 
EQUALS; 


$ZZZ HEADER (sascii‘'ZRQA', sascii'G', Sascii'O’, 32000, 1, PRIOO); 1222 oe POSITIVE NUMBER 
) HEADER (sescii'ZRQA', sascii'H', sascii'0’, 32000, 1, PRIOO,1); !ZZZ FINAL 1 = NO TESTING ON TRAPS (SAVE T 
!'MMM HEADER (slascii'ZRQA’, Sascii'X', sascii'8’, 32000, 1, PRIOO,1); ‘MMM FINAL 1 = NO TESTING ON TRAPS (S 


gas SaETREEREER 


Oe pe ee he pe he pe pe he pe pe pe pe pe pe pe pe 
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RO/RX EXERCISER 10-Oct-1985 09:32:06 
DISPATCH TABLE 10-Oct-1985 09:31:20 


Sebttl ‘DISPATCH TABLE’ 


+ 
THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


$ 
: 
$ 
t. 

DISPATCH COS$NBR_OF_TESTS); 





SEQ 0046 
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GLOBAL DATA SECTION 10-Oct-1985 09:31:20 DISKSUSER2:TMLYNAR. 7Ra}ZROAHO. 6L1;4 (31) 


Sebttl ‘GLOBAL DATA SECTION’ 


fe 
: THE aon. 5 DATA SECTION CONTAINS DATA THAT ARE USED 
{ IN MORE T HAN ONE TEST. 


psect | 
globel = $FFF% (read, write, noexecute, globel, concatenate); 


lobel 
-< eee (MAX CTLR, CST LEN, word] field (CST FIELDS), 
-TIME CONTROLLER STATUS TABLES 


CST_ADOR : ref block. fest LEN, word) Field (CST_FIELOS), 
ONTROLLER S ATUS TABLE 


ADDRESS OF “CURRENT” CONTROLLER 


OCT : blockvector [MAX gros CEN. enone field (DCT_FIELDS), 


re 
DCT_ADOR : ref block ‘CoCr LEN, wo cai fi Field ¢ COCT_FIELDS) 

oF” “ DRIVER CONTROLLER TABLE 
RDRX_ADOR : ref rdrx field CRC RE 


CAREC) OF “CURRENT” CONTROLLER 
IRDRX_ADDR : ref dex field. CRC_REG), 
! DEVICE ADDRESS OF INTERRUPTING CONTROLLER 


BST : BLOCKVECTOR MAX UNITS, 2 17 
ONTAINE INS LO» HI arian FIELDS FOR SEQUENTIAL ‘ZZZ 


‘€70 
TALLY : vector [MAX_ UNITS s ete Y clea field (T FIELDS), 
STATISTICS rhs 
T.ADDR : ref block TAL LEN, field (T_FIELDS), 


| ADDRESS oF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 


[MMM DUPFKT : BLOCK fue WORD } octet FIELOS), !BUFFER FOR OUP oue 


TRK_SGN : VECTOR [MAX UNITS, BYTE. SIGNED] INITIAL (BYTE (REP 1727 
son.cnt We inten teh see). ee OF RANDOM Noss caeeP zoe 
RANOOM : VECTOR (ROM.LEN. WORD).’ $RANDOM NO. TABLE TOGETHER S55 


C_ERR_TBL : blockvector ([MAX_CTLR, C_ERR_LEN, word) field (C_ERR_FIELDS), 
TATISTICS TABLE FOR CONTROLLER 
MSCP_PKT : blockveetor. tpt pkene PKT_LEN, word) field (PKT_FIELDS), 
IPKT_ADDR : ref block (PKT_LEN, word) field (PKT_FIELOS) 
ADDRESS OF AN MSCP PACKE T CINTERUPT PROCESSING) 


PKT_USE : vector [PKT_ CNT te, si . 
‘6 “MSCP PKCKET ‘Seema TABLE 


RETPK1 : blockvector (RP_CNT, RP_LEN, word] field (RP_FIELDS), 
rarest t RETURN’ PACRET Poot 


RP_USE : vector [RP_ CNT te, si 

: T RETURN P TPO ALLOCATION TABLE 
RP_INDX : word, + CURRENT Pac TURN PACKET shOeS 
RP"ADOR : ref block [RP_LEN, word) field CRP FIELDS), 





SEQ 0049 
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3116 ! CURRENT RETURN PACKET ADDRESS 
3117 ELOG_PKT : blockvector [EP_CNT «+ 1, EP_LEN, word] field (EP_FIELDS), 
3118 ! ERROR-LOG PACKET SAVE AREA 
3119 BUFF _ADOR : vector (MAX_BUF_CNT), ! TABLE OF I/0 BUFFER DESCRIPTORS 
3120 SUFF_OWN : vector [ Bur CNT, byte. signed), : ER OWNERSHIP (CONTROLLER NUMBER) 
3121 I00@ : vector [I0DQ@_LEN, byte). : - QUEVE OF RETPKT INDECES 
3122 IOD@_IN : word, 8 | 
3338 e byt : ! 
: y e,. ° ' 
3125 te : 
2126 ° ' FL | 
312 ‘ NUMBER OF “CURRENT” CONTROLLER 
3126 ! CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 
3129 . * CURRENT UNIT CST OFFSET 
31 word ! TOTAL NUMBER OF CONFIGURED CONTROLLERS 
3131 MAX UNITS, byte), ! DROP UNIT RE 
3132 MAX_CTLR, byte), : OF OUTSTANDING Q@1I0s PER CONTROLLER 
313 ; ' START OF FREE MEMORY 
3 : word, ! SIZE (BYTES) OF AN I/O BUFFER 
CURRENT STATUS CODE 
3 
: 
‘ 
‘ 
: 
‘ 
a 
8 
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134 
31 
313 
3138 
3139 SA_REG : word, WRITES 
3140 CMD_TIME : word, 
3141 NEX : word, I 
3142 CRN_ rd, OF LAST COMMAND SENT 
3144 TENE ‘TEMPORARY STORAGE WO USED IN BGNCLN $222 
3145 TEMP ‘TEMPORARY STORAGE WO USED IN 8GNCLN $222 
3146 CRED word, ' CREDIT 
3147 NEXT : byte. ! POINTER TO NEXT ENTRY IN PKT_USE TABLE 
3146 HOURS ¢ TIME OF DAY ( S) 
3149 MINUT e, ' TIME OF DAY (MINUTES) 
31 CLK_TICKS : word, ! TIME OF DAY (LINE-CLOCK TICKS) 
3151 FERO word, 'LO LON ADR OF THE “FORCED ERROR” BLOCK 222 
31 FER1 word, ‘HI LBN ADR OF THE “FORCED ERROR” BLOCK 222 
31 CLK _ : byte, * FLAG INDICATES IF LINE-CLOCK PRESENT 
33 : HOE_FLAG : byte. ' FLAG INDICATES IF “HALT ON ERROR” FLAG SET 
3 TYPER : VECTOR [MAX_UNITS, WORD } tREAD I/0 COUNTER 2ZZ MMM 
3157 TYPEW : VECTOR [MAX_UNITS, WORD]. ‘!WRITE I/0 COUNTER ZZZ MMM 
3158 BAL_IN : VECTOR (MAX_UNITS, WORD). !FLAG SET TO BALANCE I/0 TYPES 222 1M 
31 FORCE UR : VECTOR [MAX_UNITS, WORD), ' MMM 
sree SR_ $ WORD, 8 or" 

161 SR_ADD : WORD INITIAL (#0'172100'), : eM 
31 Taine S_PATTERN : WORD, ‘PATTERN FOR DUP WRITES 222 
316 ght S OUPPKT : ‘DBN BYTE COUNTER 222 
3164 INDEX : SIGNED WORD, ‘CURRENT MESSAGE PACKET INDEX 222 
3165 COUNT : WORD INITIAL (0), i OF STER UNITS 222 
3166 BRLEVEL : WORD, 'BUS REQUEST LEVEL FROM OPERATOR 222 
3167 FAIL : BYTE, '‘SIGNIFIES DUP TYPE 
3168 FORCED_ERROR : byte, ! “FORCED ERROR” DETECTED IN LAST READ 


— ee eee ee 
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FER_ : word, ! LGN OF THE “FORCED “ BLOCK 

FER : word, ! BYTE COUNT OF THE “FORCED ERROR” BLOCK 
INIT_OCCURED : byte initial (byte (FALSE)), ! EXERCISER INITIALIZATION yal My 
ADOR_VECT_OK : byte initial (byte (FALSE)); ! FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED 


ERRTGL; 


—————— oe 
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VAX-11 Bliee-16 V¥4.1-562 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


GLOBAL TEXT SECTION 
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SWM1 = lit (sesciz’ The remainin stions onl ly to unprotected disk units’), 'ZZZ 
SWG27 = uplit (sasciz‘ DB ord . Test’). . ow ‘MMM 
SWQ@28 = uplit (sesciz’ Enable Host kasr ry (MSV11-P,L.J) Parity’), 'MMM 


NULL = uplit (sesciz''), ) 


+ 

THE FOLLOWING DBMs ARE DEBUG eet AND SHOULD BE REMOVED BEFORE 
RELEASING THE PROGRAM. THEY INCLUDE THE NAMES OF EACH ROUTINE, PLUS 
FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION. 


re 
> 





DROP UNIT MESSAGES 


DU_MSG = writ (sasciz’' SNSAUNITSO28A DROPPED - '), 
OU_RSN = uplit 
uplit (saesciz’' sAUSER COMMANDSN’ ), 


= uplit (saesciz' sSNsAes D pnee unit sD 
= uplit (sasciz' sNsAse PROC _RETPKT: "Can IC S068A received’), 
= uplit (sesciz'sNSAse Multi-drive test’ ) 
= uplit (saesciz' SNSAes FATAL ERROR : RETPKT not avei lable’ ). 
= uplit (sasciz'sNsAee FSET_UPAR: Can''t find disk SD38A in CST #01‘), 
= uplit (sasciz' SNSAes Bad conn Io S068A received from #06'), 
= uplit (sasciz' SNSAss ceeeene eye S #028A received in MSCP packet’), 
= uplit (sesciz‘sNsAee SE L ret available’), 
= uplit (saeeciz' SNSAee Error in SET -CTLR CHAR' ), 
= uplit (sasciz'sNsAee Ctlr timeout = S03KA. seconds’ ), 
= uplit (sasciz’' SNSAee Error in UNIT_INIT' 
= uplit (seeciz'sNsAse UNIT_ : RETPKT has bad ENCODE ?. 
= uplit (seeciz' SNSAse Unit size (Lo) = SD5sA. 
= uplit (seeciz' SNSAee Unit size (Hi) = ? 
= uplit (sesciz'sNsAes ACCESS: RETPKT hes bed etdcone: ‘>, 
= uplit (sesciz'sNSAes QIO_UNIT: CST SDIs#A no unit selected’), 
= uplit (sesciz'sNsAee Unit @ is: #06’), 
* uplit (sesciz' SNSAse Removable disk is selected’ ), 
= uplit (seeciz' SNsAes Fixed disk is selected’ ), 
= uplit (sasciz'SNSAes Illegal function: #06’ 
< uplit (sasciz'sNsAss Command ref @ S06SA/S068A (Oct) not sent by Host’), 
= uplit (sasciz' SNSAss Unknown Error Log format 038A received’ ), 
: = uplit (sasciz' SNSAss Error-Log save erea full’ ) 
«= uplit (sasciz’ SNsAss Op-code SHA, End-code sien for ref @ SO06SA/S060A (8)'). 
= uplit (sasciz'SNsA¢e Cad-bc ayy parban gg SO6GHA Rep-be S068A/S068A for SO6KA/S068A (8)'), 
= uplit (Sesciz' SNSAes Res elready received for cmd “068A/S068A (8)' ), 
= uplit (seeciz’' SNsAee Feilure to send command after ¢ SO06SA/S068A (8)'), 
= uplit (saesciz’ SNSAss Response hes Error Loge s):'), ' MMM 
= uplit (seeciz' SNSAse HOST MEMORY ERROR, C 068A‘), ' MMM 
= uplit (sasciz' aNsAes HOST MEMORY ERROR, oy TED eK = ~ A‘). ' MMM 
= uplit (sesciz'sNsAee BAD BLOCK REPLACEMENT REQUEST FLAG SET ‘ "MMM 
= uplit (sesciz'sNSAes ERROR DURING REPLACEMENT (BAD BLOCK) FLAG SET’), ‘MMM 


OEE EEE | ee ee _- = - 
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ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAK-11 Bliee-16 v4.1-562 age 
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3281 1 uplit (seeciz‘ SACONFIGURATION ERRORSN’ ), 
328¢ 1 uplit (seeciz‘ sAINIT fon cae Pe 
328 1 uplit (seeciz‘'sA 
3264 1 Ulit (sesc iz’ 
3265 1 uplit (sesciz ERRORSN’ ) 
3286 1 uplit (seeciz’ ABLE CONTROLLER ERRORSN’ ), 
3267 1 uplit (seeciz’ sAF ONLINESN’ ) 
3266 1 wplit t (Seeciz’ SAPAIL TO ACCESS EITHER FIRST OR LAST TRACK DURING INITSN’ ). 
1 sesc iz’ SADISK gs PROTE °}, 
; : ?, write (saeciz' OUTS@N’)) : vector {11}, 
S298 1 : SYSTEM MESSAGES (PRINTF) | 
1 MSG_01 = it (seeciz' SNSAPOWER DELAY - WAITING’), 
3295 i MSG_02 = wert (sSeeciz'SNSAFUNCTIONAL TEST STARTED: ), 
3296 i MSG_03 = iit (sasciz' SNSNSAEXERCISER STARTEDSN’ ), | 
3398 i 7 REPORT MESSAGES (PRINTS) 
' 
3300 1 RPTL = uplit (Seeciz'sNSNSAUNT DSKsS8sAe OF © BYTES © OF @ BYTES’ ), 
3301 1 RPT2 = upli S-- --SOFT ERRORS- | 
3308 1 RPTS = @ TYPE READ waites WRITTEN’ ), 
33c3 1 RPT4 = 
4 i RPTS = UPLit (Pesci ZZ BNBR<-- --- mem ee eee eee eee eee eee eee : ). 
3305 1 RPT6 = | 
1 RPT7 = 
3307 i RPTB = 
5 i RPT9 = 
x i RPT10O = uplit (sesciz'@=NSA . . CNTR =, cccccccce gs eccccecee ‘), 
10 1 RPTi1 = 
3il 1 Ti2 = 
12 1 RPT13 = ® OF @ BLKS ‘), 
3313 1 RPT14 = WRITES WRITTEN ‘). 
ist tere: Gaix76" sbdassibectiwnsusinie’3, 
= SisD2sS4xD2uA 
3318 1 122 RPT17 RDS2' ) 
17 1 ' RPT16 = SCIZ: sNSSinbowSes02uA pénnos2 806SS38D68S58D68S3806' ), 
3318 i 222 RPTI9 «= uplit (sesciz'SNSD2sD48A 7777') 
3 i ’ 
3321 i ! GENERAL ERROR MESSAGES 
i SYSTEM FATAL (ERRSF) 
; 1 EGS_01 = uplit (sesciz‘' TOO MANY UNITS’). 
6 : ; EGS_02 = uplit (sesciz‘NOT ENOUGH FREE MEMORY FOR ALLOCATING READ/WRITE BUFFERS’ ). 
$ ! DRIVE FATAL CERRDF) 
$330 i " - €GD_10 = uplit (sesciz‘' REGISTER EXISTENCE TEST FAILED‘), 
3331 i EGD_11 = uplit (sesciz' VECTOR TEST FAILED’), 
3332 1 EGD_12 = uplit (sesciz’BR LEVEL TEST FAILED’). 
333 1 EGD_13 = uplit (sasciz’ INIT SEQUENCE FAILED’ ). 
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; 3334 1 EGD_14 = uplit (sesciz’ FATAL CONTROLLER ERROR‘), 
; 3335 1 EGD-15 = uplit (seeciz’ ONL FAILED’ 
; 3336 1 EGD_16 = uplit (esc z' MATTE -PRO orecr Co Coneurct’ >. 
; 3337 1 EGD_17 = uplit (seeciz‘' ACCESS 
s 33386 i EGD_18 = uplit (Seeciz’ FATAL 170 ‘) 
; 3239 1 ! €G6D"19 = uplit (seeci ROLLER IME QUT ). 
; 3340 1 EGD-19 = uplit ‘aman ine SK TYPE UNKNOWN TO EXERCISER 
+ 3341 1 EGD-20 = uplit (sesciz’FAILED TO SEND SET CONTROLLER ER-CHARACTERISTICS COMMAND: ), 
is $342 1 EGD_21 = uplit (sesciz‘ SE R-CHARACTERSSTICS RESPONSE HAS BAD ENDCODE OR FLAGS IN ERROR’). 
y 3343 1 EGD_22 = uplit (seeciz’FAILED TO SEND ON-L OMMAND’ ), 
4g 3344 1 EGD_23 = uplit (sesciz’ ON-LINE RESPONSE HAS BAD ENDCODE' ) 
| 3345 t EGD_24 = uplit (sesciz’ON-LINE RESPONSE HAS UNKNOWN pevree: ), | 
; $347 , MARD or SOFT CERRHRO or ERRSOFT) | 
t 3 | 
+ $49 1 , EGH_30 = uplit (sesciz'I/0 REQUEST FAILED’). | 
; «5351 i t BASIC ERROR MESSAGES (PRINTB) | 
; «335 ! SYSTEM FATAL CERRSF) 
333s 1 '  €BS_01 = uplit (sasciz'sAMORE THAN sD26A UNITS SPECIFIED’ ). 
; 3357 1 ORIVE FATAL CERROF) | 
; 3359 1 EBD_10 = uplit (seeciz’sAe NO RESPONSE AT 
; 3360 1 EBD_12 = uplit (seeciz' sAs CT BR LEVEL FOR DRIVE’ #06'), 
s 3361 1 E6D_13 = uplit (sasciz’sA* STEP SD18A READ ° 
5 soce 1 EBD_14 = uplit (sesciz’ BAD SA CODE FROM DRIVE #06‘ ), 
$ 336 1 EB0_18 = uplit (saeeciz'sAe DISKSD28A WENT 2 ® 
: 3364 1 EBD_19 = uplit (sesciz’sA* OR ACK ) 
; 3365 i _ §BD_24 = uplit (sasciz'sAs DISKSD28A WENT TO THE “AVAILABLE” STATE’ ), 
; 3307 i ‘ 
, saee : HARD or SOFT (CERRHRD or ERRSOFT) 
; 3370 1 NH. = UPLIT CwASCIZ’ 1772 
s 3371 1 EH_1 = UPLIT (#ASCIZ’ ) 1222 
; 3372 i EH_2 = UPLIT (sASCIZ2’ r+}, 1222 
; 3373 1 EH_3 = UPLIT (#ASCIZ’ . ‘222 
: 3374 1 EH_4 = UPLIT (sASCIZ’ ‘222 
; 3375 i EH_5 = UPLIT (sASCIZ’ 1227 
> 3376 1 EH_6 = UPLIT (#sASCIZ' ‘222 
s ys7? i EH_7 = UPLIT (sASCIZ’ 1222 
; 3378 1 EH_8 = UPLIT (#ASCIZ’ 1222 
: 3379 1 EH-9 = UPLIT 1 BASCIZ: '22Z 
; 3380 1 EH_10 = UPLIT (#ASCIZ° ‘222 
; 3381 1 EH_12 = UPLIT (#ASCIZ’ MEOIA’ ‘272 
, $382 i EH_13 = UPLIT (#ASCIZ’ - ERR IN DUP PKT WHEN USING ere LC PROG‘), 1222 
: : 
: 33864 i ERR = uplit (sesciz'sAs DISKsD2' ), 
’ 3365 i ERR “00 = uplit ¢ 
F 3366 i uplit (sesciz' sAINVALID COMMAND’ ), 
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uplit (sesciz‘sACOMMAND ABORTED’ ), 
uplit (seeciz‘sAUNIT OFFLINE‘ ) 
uplit (Seeciz‘SATRANSITION TO AVAILABLE STATE’), 
uplit (seeciz’'SAMEDIA FORMAT ERROR’), 
uplit (seesciz’ SAWRITE-PROTECTED: ) 
uplit (seeciz'sADEVICE COMPARE ERROR 
uplit (seeciz‘ sADATA 2 
uplit (sesciz’sAHOST BUFFER ACCESS ERROR’), 
uplit (seeciz’SACONTROLLER ERROR’ ), 
uplit (Sasc iz’ SADRIVE ‘). 
uplit (seeciz’' sAMESSAGE FROM INTERNAL DIAGNOSTICS’ ), 
uplit (sesciz' sAHOST COMPARE 
uplit (seeciz‘sACOMMAND TIMEOUT’ ), 
uplit (sesciz‘sABAD BLOCK REPLACEMENT COMPLETION’ )) : vector [15], ' MMM 
ERROR LOG MESSAGE CERRSOFT) 
ELG_0O0 = uplit (#esciz’SAERROR LOG MESSAGE RECEIVED:sN’ ), 
ELG_FMT = uplit ¢ 
uplit (seeciz'sAs CONTROLLER ERRORSN’ ), 
uplit (saesciz'sA*« HOST MEMORY ACCESS ERRORSN’ ), 
uplit (sesciz‘sA* DISKSD28A - DISK TRANSFER ERRORSN’ ), 
uplit (sasciz'sAs DISKSD28A - "STANDARD DISK INTERCONNECT” ERRORSN’ ), 
uplit (seeciz'sA* DISKSD28A - “SMALL “ ERRORSN’ 
uplit (sesciz'sAs DISKSD28A - “BAD BLOCK REPLACEMENT ATTEMPT’SN’)) : vector [6], 
TENDED ERROR MESSAGES (PRINTX) 
= uplit (seeciz'sMsAe SA: 
= uplit (Seeciz'SNsAs STATUS CODE: 02°), 
= uplit (seeciz'#04' ) i 
aa ae 
" z INE 
x we (seeciz' SAACCESS' 5, 
= uplit (saesciz’ #03’), 
EX.68 = uplit (Sesc iz‘ sNsAs BAD BLOCK ( laceable): SD58A. (OCT s06sA)'), 
EX_6B1 = i Host replaceable): SD58A. (OCT s068A)'), 
EX_BBU = 1 : SDA. COCT S06sA)' ), 
EX_LBN = 
EX_PBN = 
EX_LBR = ), 
EX_LBW = upli . ; ‘). 
EX_RBN = upli ‘ - COCT S068A)'‘ ), 
EX_6B2 = Pelt (nacc iz aNaAs BAD BL 'ZZZ 
EXx_8B12 )*), 'ZZZ 
EX_6BU2 = OCTAL )'). !ZZZ 
EX_LBN2 'Z2ZZ 
fone $Z2Z 
!Z2Z 





40 
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RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 4 
GLOBAL TEXT SECTION 10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR. FRO) ZROAHO. BL1;4 ee 32) 
EX_LBW2 = uplit (sesciz’'SNSA* LON WRITTEN: SO68A SO6SA (OCTAL)‘), 'ZZZ 
EX_RBN2 = lit (Seeciz’ SNSAs REN: S068A (COCTAL)‘), 'Z2Z 
Ex_CSC «= : SD5e8A.'), 
Ex_ = ahs As RE COMMAND: #D5e8A.‘), 
c = uplit (sesciz’' sNsAe BYTE COUNT IN waits com S058A.'‘), 
x = ' Gres As BYTES TR : D: #058A.‘), 
Ex « FER SS (32 bite): SO68A #06‘), 
Ex a i FER SS FOR READ (32 bits): SO068A #06’ ) 
Ex s Seeciz' SNsAs I/0 BUFFER ADDRESS FOR WRITE (32 bits): SO068A #06’), 
Ex 5 OF COMMAND/RESPONSE PACKET SAVE AREA:sN’ ), 
Ex = uplit (sesciz‘'sA #06' 
EX_TIM = uplit (seec iz’ SNSATIME: SZ28A:8Z26A HOURSEN’ ), ‘HMM 
ex = uplit (saeciz'sNsAs DUP FATAL TYPE MESSAGE. ERROR CODE: 'MMM 


DUP up 
Ex_(B = uplit (sasciz'sNsAe BAD LGN: SO68A SO6SA (COCTAL)'), 






S048A COCTAL)’), 
MMM 


XX13 = UPLIT (sSASCIZ’'SNSA « DISK : “D2' '22Z 
XX23 = UPLIT (sASCIZ' SDSSA. toet S06SA)'), 1222 
XX32 = UPLIT ( SASCIZ’ SNSABYTE NUMBER: #D3' 'ZZZ 
XX33 = UPLIT (sASC one scot a ITTEN WORD :8816'), 'ZZZ 
XX34 = UPLIT (SASCIZ‘SNSARANDOM READ WORD bin: SB168A oct:#06' ), 'ZZZ 
CONFIGURATION ERROR MESSAGES (PRINTF) 
CER_O1 = uplit (Seeciz'SNSADUPLICATE UNIT:SD2sA AT IP: #806'), 
CER “02 = uplit (sesciz' sNSAMORE THAN #0198A DIFFERENT IP ADDRESSES ' Ds 
ERROR/EVENT SUB CODES (PRINTX) 

SC_SOI = uplit (seeciz' sASPIN-DOWN SRORED’ 2 
SC_CON = uplit (saeciz'SASTILL CONNECTED’ ), 

-DUP = uplit Sasc iz‘ SADUPLICA TE UNIT NUMBER’ ), 
SC_ONL = uplit (saesciz‘ SAALREAD ‘), 
SC_SON = uplit (havc iz’ SASTILL ONLINE’ ), 
SC_INR = uplit (sesciz’ TE REPLACEMENT‘ ), ‘MMM 
SC_INV = uplit (saeciz’ SAINVALID RCT‘ ) ‘MMM 
SC_UNK = uplit (sesciz'sAUNIT UNKNOWN OR ONLINE TO ANOTHER CONTROLLER’ ), 
SC_VOL = uplit (seeciz’sANO VOL ED OR ORIVE DISABLED BY SWITCH’ 5, 
SC_IOP = uplit (sasciz' SAUNIT INOPERATIVE (RDS1/5S2 write fault 
SC_DIS = uplit (sesciz’ sAUNIT DISABLED BY FIELD SERVICE OR IN TERNAL DIAGNOSTICS’ ), 
SC_FER = uplit (saeciz'sA*FORCED ERROR” DETECTED WHILE ACCESSING FCT OR RCT’), 
SC_FE2 = uplit (sesciz’sASECTOR HAD BEEN WRITTEN WITH “FORCED ERROR” MODIFIER’ ), 

_I = uplit (sasciz'sAFCT OR RCT UNREADABLE - INVALID angibe R'), 
SC_IS2 = uplit (sesciz'SAHEADER COMPARE ERROR (Valid header not found)’ ' 
SC_OST = upl:t (sasciz’'sAFCT OR RCT UNREADABLE - DATA ties TIMEOUT’ ). 
SC_0S2 = uplit (sasciz'sADATA SYNC NOT FOUND (Date oune S meout )'), 
SC_ECc = uplit (sasciz’sAFCT OR RCT UNREADABLE - UNC ECTASLE ECC ERROR‘), 
SC_ECD = uplit (saeciz’ SAUNCORRECTABLE ECC ERROR’ ), 

-RCT = uplit (sasciz' sARCT Se agg a 

_FUL = uplit (saeeciz'sANO REPLACEMENT BLOCK AVAILABLE CRCT full)‘ ), 
SC_576 = uplit (sesciz’'sADISK NOT FORMATTED WITH 512 BYTE SECTORS’ ), 
SC_FCT = uplit (saesciz' sADISK NOT FORMATTED OR FCT CORRUPTED’ ), 


ee ee rt = eu ee ee 


re ee 








SEQ ag 


ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 42 
vo2.3 GLOBAL TEXT SECTION 10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR. TRG} ZROAHO. 6L1;4 32) 
s 3493 1 SC_EC1 = uplit (sesciz’sAONE SYMBOL ECC ERROR‘), 

; 3494 1 SC_EC2 = uplit (sSeeciz‘sATWO SYMBOL ECC ERROR‘), 

; 3495 1 SC_EC3 = uplit (sesciz'sATHREE SYMBOL ECC ERROR’), 

s 3496 1 SC_EC4 = uplit (sasciz’sAFOUR SYMBOL ECC a 

; 3497 1 SC_ECS = uplit (sesciz'sAFIVE SYMBOL ECC ERROR’ ). 

s 3496 1 SC.EC6 = uplit (sesciz’'sASIX SYMBOL EC ‘). 

; 3499 1 SC_EC7 = uplit (seeciz' sASEVEN SYMBOL ECC ERROR’), 

s 3500 1 SC.ECS = uplit (seeciz'sAEIGHT SYMBOL ERROR’ ), 

s we, 3 SC_EC9 = uplit (#easciz' sACORRECTABLE ERROR IN ECC FIELD’), | 
s $502 1 SC._SWP = uplit (sasciz‘SAUNIT SOFTWARE WRITE PROTECTED’ ), 
s 3503 1 SC_HWP = uplit (sesciz’' SAUNIT WRITE PROTECTED’ ), 
s 3504 1 SC_SAF = uplit (sesciz’SAUNIT DATA SAFETY WRITE PROTECTED’ ), ! MMM 
s 3505 1 SC_ODA = uplit (saeciz’'sAODD TRANSFER ADDRESS’ ), 
s 3506 1 SC_008 = uplit (seasciz’sAODD BYTE COUNT’ ) 
+ 3507 1 SC_NXM = uplit (sesciz'sANON-EXISTENT HOST MEMORY’ ), 

s 3506 1 SC_PAR = uplit (sesciz'sAHOST MEMORY PARITY oon gal ). 

s 3309 1 SC_CTO = uplit (s#esciz' sACOMMAND OR RETRY LIMIT EXCEEDED 2, 

s $310 1 SC_SDS = uplit pees |e ena Aarectt ee nae OVERRUN OR UNDERRUN’ ), 

s 3511 1 SC_EDC = uplit (sesciz'sA“ERROR DE ane ION CODE” ERROR’ ), 

s 3512 1 C_IDS = uplit (seeciz’ sAINCONSI T INTERNAL " ASTRUCTURE* im 

’ 3513 1 SC_SRT = uplit (seesciz’ SADRIVE COMRAND TIMEOUT ( penance incomplete)’ ), 

s 3514 1 -SRI = uplit (sesciz' sACONTROLLER + Age Te TRANSHES ON OR PROTOCOL ERROR’ ), 

s 3515 1 SC_POE = uplit (Saeciz' SAPOSIT TION ERROR s-seek 

s 3516 1 SC_RDY = uplit (sesciz'SALOST READ/WRITE E READY SURING/BETWEEN TRANSFERS’ ), | 
s 3517 1 SC_CLK = uplit (sesciz'sADRIVE CLOCK DROPOUT’ 

+ 3518 1 SC-RSP = uplit (seeciz’SALOST RECEIVER READY BETWEEN SECTORS’ ), 

s 3519 1 C_SUR = uplit (sasciz’sADRIVE DETECTED ERROR’ ), 

s 3520 1 SC_PSP = uplit (sesciz’ sACONTROLLER DETECTED PULSE OR STATE PARITY ERROR’), 

s 3521 1 SC_REP = uplit (sesciz'sABAD BLOCK SUCCESSFULLY REPLACED: ), MMM 

s 3522 1 SC_NBB = uplit (sasciz‘sABLOCK VERIFIED OK -- NOT A BAD BLOCK’), ' MMM 

’ arty : ; SC_REF = uplit (sasciz’ SAREPLACEMENT FAILURE’ ), ‘MMM 

4 . 

' snes 4 : CONTROLLER GENERIC ERROR CODES 

5 526 

+ 3527 1 CNTR_ERR = uplit ( 

: 3528 1 uplit (sasciz’ sACONTROLLER TIMEOUT’ ), 

s 33529 1 uplit (saeciz' SAENVELOPE/PACKET READ ERROR (Parity or timeout)’ ), 

1 $580 3 uplit (sasciz’ /PACKET WRITE ERROR ( Parity or timeout)’ ), 

; si 1 uplit (seeciz’ ROM RAM PARITY ERROR‘), 

s 3532 1 uplit (Sasciz’ SACONTROLLER RAM PARITY ERROR’ ), 

s 3533 1 uplit (seec iz’ sACONTROL ROM PARITY ERROR’ ), 

’ see i uplit (sesciz'sAR , Parity or timeout)‘ ), 

; 3535 1 uplit (#aeciz‘SARING WRITE (Parity or timeout)’ ), 

+ 3536 1 uplit (sesciz’ T MASTER FAILURE’ 

s 33537 1 uplit (seeciz’SAHOST ACCESS TIMEOUT (Higher level protocol dependent)’ ), 

s 3538 1 uplit (sasciz'sACREDIT LIMIT EXCEEDED’ ), 

s 3539 1 uplit (seeciz'sAQ-BUS ERROR’ ) 

: 3540 1 uplit (sesciz‘sACONTROLLER FATAL ERROR' ), 

: 3541 1 uplit (sasciz' sAINSTRUCTION LOOP TIMEOUT’ 

s 3542 1 uplit (sesciz'’SAILLEGAL VIRTUAL CIRCUIT ID’), 

:s 3543 1 uplit (sasciz' sAINTERRUPT VECTOR ILLEGAL’), 

' 3544 1 uplit C(s#asciz’ SAMAINTENANCE READ/WRITE INVALID REGION IDENTIFIER’ ). 

;s 3545 1 uplit (sesciz' sAMAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER’ ), 


ere + 
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RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 the oy 16 V4.1-562 


GLOBAL TEXT SECTION 10-Oct-1965 09:31:20 DISK SUSER2 


uplit (sesciz’sACONTROLLER RAM ERROR acu aca ad ). 
uplit ideneiz’ SAINIT SEQUENCE ERROR’ 

uplit (sesciz’ SAHIGHER te PROTOCOL “INCOMPATIBILITY ERROR‘ ), 

uplit (sesciz'sAPURGE/POLL HARDWARE L 

uplit (sesciz' SAMAPPING REGISTER READ FAILURE’ (Parity or timeout)’ )) : vector [23], 


: 
RD/RX CONTROLLER DEPENDENT ERRORS CODES 


RORX_ERR = uplit ¢ 
uplit (saeciz’sATI1 CPU FAILURE’ ) 
PARITY RROR‘ ) 


uplit ¢ iz‘ SANON-PARITY RAM E ° 
uplit (sesciz'sASTATE MACHINE FAILURE - T11 ADDRESS REGISTER’), 
uplit (sesciz’'sASTATE MACHINE FAILURE - Q-BUS —s ). 


CRC REG 
SERIAL IZER/DESERIAL IZER REGISTER’ ), 


i E MACHINE FAILURE 
uplit (sasciz'sASTATE MACHINE FAILURE 
WRONG HARDWARE VERSION’ )) : vector [7], 


' uplit (sesciz' sASTATE MACHINE FAILURE 
: PRINTOUTS THAT FAKE THE ORS ERROR MESSAGES 


DOF _MSG = uplit (sasciz'SNSAZRQA DEV FTL #Z5#A ON UNIT SZ28A TST 001 SUB 000 PC: #06’), 
HRO_MSG = uplit (sesciz’SNSAZRQGA HRD ERR #Z58A ON UNIT #Z28A TST 001 SUB 000 PC: #06’), 
SFT_MSG = uplit (sasciz'SNSAZRQA SFT ERR ZSs8A ON UNIT #Z2s8A TST 001 SUB 000 PC: sO6sN’), 
HRD_SUB = uplit (sesciz' SNSAI/O REQUEST FAILEDsN’ ), 


$ 
MISCELLANEOUS 


SPACE4 = uplit (sesciz'sS4' ), 
CRLF = uplit (sesciz'sN'), 
DASH = uplit (sSasciz'’sA - '), 
ASTERISK = aris (Sasciz'sAe ‘); 


1 
ML YNAR . ZRQ)ZRGAHO.BL1;4 


re te eee eee eee ee, 
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RD/RX EXERCISER 10-Oct-1985 09:32:06 
DEFAULT HARDWARE P-TABLE 10-Oct-1985 09:31:20 


Sebttl ‘DEFAULT HARDWARE P-TABLE’ 


+ 

! THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
! THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS ‘oc 
! IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABL 

! AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 


BGNHW (COFPTBL); 





globel 
HWPT_IP_ADOR : word initial CINIT_IP_ADDR) ! IP ADDRESS 
HWP T -detToR : word initial CINIT THTR _VECT), ! VECTOR ADDRESS 
HWPT_BR_LEVEL : word initial CINIT BR_LEVEL), ! BR LEVEL 
HWPT ~DIgK WORD INITIAL (#0'000200' ); {PROTECT WHOLE DISK. NO DUP 222 
TSO_LBN : word initial (0), ! STARTING TRACK LO 22Z 
HWPTS1_LBN : word nikiet (0), ! STARTING T are oft ZZZ 
TEO_LE8N : word initial (#0'177777'), ! ENDING TRACK 22ZZ 
HMWPTE1 LBN : word initial (0), ' ENDING TRACK At ZZZ 
_LO6 : WORD INITIAL (#0'020040' ), ‘DISK TYPE Z2ZZ 
NAME _HI : WORD INITIAL (#0‘020040' ); ‘DISK TYPE 222 
ENDHW ; 





> SEQ 0060 
li .1-582 Page 44 
R2: (MLYNAR . ZRQ)ZRQAHO.BL1;4 (33) 





ZRQAM1 poe EXERCISER 10-Oct-1985 09:32:06 
| vo2.3 SOFTWARE P-TABLE 10-Oct-1985 09:31:20 
3603 Sebttl ‘SOFTWARE P-TABLE’ 
3604 
3605 oo 
3606 ! THE SOFTWARE TABLE CONTAINS VARIOUS DATA use BY THE 
3607 ' PROGRAM AS OPERATIONAL PARAMETERS. PARAMETERS ARE 
| 3608 ! SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
3609 ! AT RUN T : 
3610 
3611 
36 


BGNSW (SFPTBL); 


o 
wn 


7 © © Ge Ge Ge Ge Ge GF Ge Ge Ge ae oe ce ae 
~ 
@ 

ll el a ol el ll ll ll ld ed deed ed ed ed ed ed edd de ee ee 


3614 globel 

3615 SWP_ERROR : word initial (32), 

3616 SWP_XFER : WORD INITIAL (0), 

3617 SWP_FLAGS : word initial CSWF_RDM or SWF_CRC or SWF_HWC or SWF_FER 
36 or SWF_HRD or SWF_BLK), 

3619 SWP er : word ioieies £9). 


' Enable Host Memory Parity MMM 


; 3620 SWP_R : word initiel (99), 

$ 3621 SwP “TIME: : word initial (0), § START TI 
’ sess ‘MMM “DUPROUND : WORD INITIAL (11), 'NO OF I/Os PER DBN TEST 22Z 
sess H THE NEXT TWO LOCATIONS SHOULD BE TOGETHER 

3626 SWP_UCNT : word initial (MAX A _CNT) 

, 3627 SWP_UDPAT : vector [MAX_UDP_CNT, word}, 

3629 DUPROUND : WORD INITIAL S33). 'NO OF I/0s PER oon TEST Z2ZZ 

‘ 3630 MAN_TST : ‘word initial (0 ). Reduce Seek 

: 3631 TST_PAR : word initial (1); 

; 3632 

: 3633 ENDSW; 


ne ee ee 


SEQ 0061 


VAX-11 Bliss-16 V4.1-562 45 
DISK SUSER2: [MLYNAR. TRG} ZROAHO. BL1;4 (34) 
' 
| 
| 
! HARD ERROR LIMIT FOR DROPPING UNIT | 
'XFER LIMIT. DEFAULT = QUICK PASS !ZZ 
FLAGS (SEE DOCUMENTATION) 4 


: DATA PATTERN NUMBER 
! ROS1/52 gr gota RATIO 


! USER DATA PATTERN COUNT 
! USER DATA PATTERN 


eek Duty cycle for Manufacturing MMM 


SSS ssn ee eae J 


5 
~ 
w 
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RD/RX EXERCISER 4 
(35) 


PROTECTION TABLE 
Sebttl ‘PROTECTION TABLE’ 


8e 
4 
> 


SEQ 0062 
VAX-11 Bliss-16 V4.1-5862 P 
DISK$ 


10-Oct-1985 09:32:06 1 
20 USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 


10-Oct-1985 09:31: 


THIS TABLE IS USED BY THE RUNTIME SERVICES 
TO PROTECT THE LOAD MEDIA. 


BGNPROT (0, -1. 6); 
11ST ARG = OFFSET INTO P-TABLE FOR CSR ADDRESS | 


!2ND ARG = OFFSET INTO P-TABLE FOR MASSBUS ADDRESS | 
!SRO ARG = OFFSET INTO P-TABLE FOR DRIVE NUMBER 


ZRQAM1 RD/RX EXERCISER 
/VO2.3/ 


122 121 LSNAME: : .ASCIT 


; 


e333 

UU 

CO coororoorrrrr~ 
he die 


Ue OS Sb Gh LE AO > 
o2 0 88 68 so ae 
ee 


creecccee 
3 


o 
40~ 
= Seg 


sDISPATCH 


fs 
Saad 
o 
~4 
v 





SEQ 0063 
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PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR . ZRQJZRGAHO.8L1;4 (35) 
000000 . WORD 
000000 LSSPC:: .WORD 
000000G LSDEVP: : .WORD sOVTYP 
000000G LSREPP: : .WORD $RPT 
000900 LSEXP4: : .WORD 
000000 LSExXPS: : .WORD 
000000G LSAUT:: .WORD $AU 
000000G LS$DUT:: .WORD $DU 
000000 L$LUN:: .WORD | 
000000G LSDESP: : . WORD $DESC 
104035 L&LOAD: : .WORD 73743 | 
000126’ LSETP:: .WORD SERRTBL 
000000G +eaee: : .WORD + ay 
000000G CCP:: .WORD 
Lé :: .WORD sAUTO 
ps od oe LSPRT:: .WORD $PROT 
1 L¢TEST: : .WORD 
000000 LSOLY:: .WORD 
000000 L$ ::..WORD 
000001 $PCNT:: .WORD 
000000G L¢DISPATCH: : 


~ 


ERRTYP::. 
22. 





ERRBLK::. 
P.AAA: ASCI 





SSS SSSA RAR LAA LA SANQRN RANA RR RP oOOrFrrrnrnr: corrcorroeco 





SSSESSESESESESESELESLELELET 
Saeaeaaaay Sanaa 


SESSESSSSSSSSSESELEELIILEES 
SSSESESSESSSSSESTLLELL IEEE: 








C 0064 
ZRQAM1 RO/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1- an a 
—vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20  OISKSUSER2: (ML YNAR.ZRQ)ZRQAHO.6L1;4 (35) 


s 
Aa 
S 
v 


P.AAC: 


P.AAD: .ASCII 


7 ; 'i = : 





~ 
a Meriayiirswe bie, ala tilt ede 
v 


if 
SSSSSESESSESESESSLLLLLELEL ELL L ee ee ese sees: 


P.AAE: .ASCII 


ss. SSA RS QAR 


= 
~ 
~ 
®NAN 


P.AAF: ‘ASEH 
res/ 
‘ II /8/<00><00> 
P.AAG: . I /Vec/ 
a II /tor/ 
-ASCII <00><00> 
P.AAH: .ASCII /BR / 
ASCII /Lev/ 
145 154 040 ASCII /el / 


ae 
a 


- 
Lan 
. +S SAAA SS SSS SRNR SRR RAR AANA ARR R ARAN RRNA RA 
~ 
8 
NT TT TT 


Sthnee 
RSGESRSRSSSSSSELESESESESESLLLEL ESS e Reese eeeesees 


SE SESRESSESESESSSSSSELSLLSELSL TESS esses eeee esse sees 
: 


i 
aN 
Cy 
oe 
Ww 


eu LL HHL. 


—— ee ee eC} a 





SEQ 0065 





PROTECTION. TABLE 10-Oct-1988 09:31:20 DISK sUSERE: THLYNARPROTZROAHO.BL1,4 Om oo 38) 
133 165 163 : | 
1s} 141 154 “ASE | 
oes O35 t2e “ASCII 
121 104 136 ; 
068 060 135 -ASCII 
104 151 P.AAI: .ASCI 
ig 183 O80 ‘ASCH 
$05 s(b00 ‘ASEET 
124 145 163 P.AAJ: . 
040 145 : 
is 164 151 ; 
145 040 ; 
tea 1$> 1§3 -ASCII 
145 162 ASHE 
a aS aH 
146 ; 
151 163 7 
144 151 ; 
ee : 
114 157 7 P.AMK: . 
f cr 3 
ise gag 187 a: 
4 949 : ; S I 
ia? “Ast 
tie ASE 
rs ae ‘ABEL 
188 : 147 P.AAL: .ASCT! 
14 -ASCT} 
; iS 14 . SCI! 
164 141 : cr: 
16 7 - ASCT! 
139 196 “ASCII 
1 147 -ASCT 
131 36 147 “ASCII 
114 102 AS 


ZRQAMi RO/RX EXERCISER 


—-y02.3 PROTECTION TABLE 
000747 116 040 141 

| 0007 144 144 162 

| 000 145 163 163 

| 000760 000 

} 

) 


000773 141 154 040 

000776 167 157 162 

001001 144 040 157 
1004 146 040 145 
1007 156 144 151 

00101 156 147 

00101 114 102 116 
1020 040 141 

001023 144 162 145 
1 163 163 

001031 

001032 110 151 147 

001035 150 145 

001 157 143 

001043 164 141 

001 040 167 157 

001051 1 144 040 

pat ee a 157 146 040 

001057 145 156 1 

001 151 156 147 

001 040 114 1 

001070 116 040 141 

001073 144 144 1 

001076 145 163 163 

001101 000 

Settee 127 162 151 

0011 164 145 

001110 157 156 

001113 143 165 163 

001116 157 155 

001121 145 162 

001124 1 141 

001127 141 04 141 

0011 162 145 141 

0011 040 157 1 

001140 040 1 150 

001143 151 163 04 

46 151 163 
001151 153 165 
54 56 151 1 


P.AAN: 
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10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-582 a 
10-Oct-1985 09:31:20  OISKSUSER2:(MLYNAR.ZRQJZRQAHO.BL1;4 (35) 


Se 


~~ ee tee — wee ee 





RO/RX EXERCISER 
PROTECTICN TABLE 
124 117 
105 122 
104 101 
101 040 
i22 105 
040 115 
13 040 
1 040 
126 105 
127 122 
124 124 
$26 041 

056 
040 103 
116 106 
122 115 
4h 162 

145 
162 157 
ose 154 
iS 151 
000 000 
| 141 
16 146 
162 040 
151 155 
164 040 
156 040 
145 147 
142 i71 
145 163 
050 060 
146 157 
040 16 
151 is 
040 160 
163 163 
000 000 
14 156 
iS 155 
163 145 
153 040 
157 144 
000 000 
145 141 
O55 143 
155 160 
162 145 
040 160 
162 146 
162 155 
144 040 


—_— ee ae ew See ee 


10-Oct-1985 09:32: 
10-Oct-1985 09:31: 


/ 7£00><00> 
/Ren 


sek / 


Smod/ 
4@/<00><00> 
/Rea/ 


:06 
:20 


VAX-11 Blis 
DISK SUSER2: 


-16 V4. 


SEQ 0067 


ML YNAR. tae 1 ZROANO. BL1;4 


-_-- ET EL A oe A ee 


SEQ 0068 
age 





ZRGAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 Vv4.1-562 f S52 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR.7RQ)ZROAHO.BL1;4 (35) 
141 164 -ASCII /at / 
1 150 145 -ASCII /the/ 
143 157 -ASCII / co/ 
1 164 162 -ASCII /ntr/ 
157 154 154 3s foll/ 
145 162 000 ¢ II /er/<00> 
127 ae 151 P. AAU .ASCII i/ 
164 14 055 -ASCII /te-/ 
143 157 155 -ASCII /com/ 
160 14 162 -ASCII /per/ 
145 16 040 -ASCII /es / 
1 145 162 -ASCII /per/ 
| OO1 1 157 162 -ASCII /for/ 
i5 145 144 -ASCII /med/ 
141 164 -ASCII / eat/ : 
rt 150 -ASCII / th/ 
14 143 -ASCII /e ¢/ 
nn Ct a 7 ‘ASCTE /eoi/ 7 
‘ ro 
154 145 162 -ASCII /ler/ 
-ASCII <00><00> 
103 145 P.AAV: .ASCII / / | 
143 153 -ASCII /ck / 
141 154 -ASCII /ell/ 
167 -ASCII / wr/ 
15 145 -ASCII /ite/ 
16 141 -ASCII /s a/ 
150 -ASCII /t W/ 
157 163 164 -ASCII /ost/ 
142 171 “ II / by/ 
162 145 j II / re/ 
141 144 151 -ASCII /adi/ 
1 147 -ASCII /ng/<00> 
125 163 145 P.AAW: .ASCII /Use/ 
14 151 a II /efi/ 
145 eee 
1 141 . II / da/ 
164 141 -ASCII /te / 
160 141 164 -ASCII /pet/ 
164 145 162 -ASCII /ter/ 
1s ; II /n/<00> 
i2 145 154 P.AAX: .ASCII /Sel/ 
145 143 164 -ASCII /ect/ 
040 i 162 -ASCII / pr/ 
14 055 144 -ASCII /e-d/ 
14 146 151 -ASCII /efi/ 
1 i45 144 -ASCII /ned/ 
141 -ASCII / da/ 
164 141 040 -ASCII /te / 
160 141 164 -ASCII /pat/ 
164 145 162 -ASCII /ter/ 
156 050 -ASCII /n (/ 


ee 


8$ 
= 
S ww 
anes 


UMN ap 


Sanube 


gggeees 








ee ee eee eee 


SEQ 0069 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 53 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR .ZRQ)ZRGAHO.BL1;4 (35) 
C40 146 .ASCII /0 f/ 
162 040 -ASCII /or / 
145 161 -ASCII / 
145 156 -ASCII /uen/ 
151 141 -ASCII /tia/ 
163 -ASCII /1 s/ 
154 145 -ASCII /ele/ 
164 151 -ASCII /eti/ 
156 i ASCII /on)/ 
000 -ASCII <00><00> 
165 155 P.AAY: .ASCII / 
145 162 -ASCII /ber/ 
157 46 -ASCII / of/ 
167 157 -ASCII / wo/ | 
163 -ASCII /rds/ | 
151 156 -ASCII / in/ 
141 -ASCII / da/ | 
141 -ASCII /tae / 
141 164 -ASCII /pat/ 
145 162 -ASCII /ter/ 
-ASCII /n (/ 
040 -ASCII /16 / 
141 170 -ASCII /max/ 
155 i165 -ASCII /imu/ 
1 ASCII /m)/<00> 
-ASCII <00O> 
14 164 P.AAZ: .ASCII /Pat/ 
14 162 -ASCII /ter/ 
166 -ASCII /n vw/ 
154 165 -ASCII /elu/ 
040 050 -ASCII /e (€/ 
157 -ASCII /no / 
145 141 -ASCII /lea/ 
151 -ASCII /din/ 
172 -ASCII /g 2/ 
162 157 -ASCII /ero/ 
040 141 -ASCII /s a/ 
1 157 -ASCII /lle/ 
145 144 -ASCII /wed/ 
000 000 -ASCII /)/<00><00> 
154 145 P.ABA: .ASCII /Cle/ 
162 0 -ASCIi /aer / 
141 ASCII /stea/ 
151 163 -ASCII /tis/ 
151i 143 -ASCII /tic/ 
0 -ASCII /al / 
141 142 -ASCII /tab/ 
145 163 -ASCII /les/ 
141 146 -ASCII / af/ 
145 162 ASCII /ter/ 
1 162 ASCII / pr/ 
156 164 ASCII /int/ 


— << > 


a ti 


002214 


pesca 


UVUMWu 
att 


eoessesan= 


SSeeeee 


RD/RX EXERCISER 
PROTECTION TABLE 


P. ABC: 


P.ABD: 





re ee eee a a ae 


SEQ 0070 
VAX-11 Blies-16 V4. . 


10-Oct-1985 09:32:06 1-582 age 
DISKSUSER2: [MLYNAR .ZRQ)ZRGAHO.BL1;4 (35) 


10-Oct-1985 09:31:20 


— es a eee 


ee ee ee ee ee oe 


TT 


RD/RX EXERCISER 
PROTECTION TABLE 


164 
164 
940 


P. ABE: 


P.ABF: 


P.ABG: 


ee ee _- 


SEQ 007 
VAX-11 Bliss-16 V4.1-5862 7 P 


10-Oct-1985 09:32:06 Page 55 
DISK $USER2: (MLYNAR . ZRQ)ZRGAHO.BL1;4 Oee 35) 


10-Oct-1985 09:31:20 


ee 


SS eee - 








SEQ oh 


RDO/RX EXERCISER 10-Oct-1985 09:32:06 1 Blies-16 V4.1 56 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISKsUsene. (MLYNAR. SOT ZROAHO. BL1;4 O08 35) 
110 -ASCII /s H/ 
115 115 ASCII / 
145 ASCII / (e/ 
141 155 -ASCII /xem/ 
1 145 ASCII /ple/ 
i ASCII /: i/ 
060 065 - ASCII / | 
000 000 -ASCII /)/<00><00> 
165 156 P.ABI: .ASCII /Run/ 
151 156 -ASCII /nin/ 
165 -ASCII /g u/ 
144 145 -ASCII /nde/ 
i -ASCII /r t/ 
145 -ASCII /he / 
120 -ASCII /A.P/ 
1 ‘ -ASCII /.T. 
115 157 -ASCII / Mo/ 
151 1 -ASCII /nit/ | 
1 ASCII /or/<00> 
.ASCII <00> 
150 145 P.ABJ: .ASCII /The/ 
162 145 ASCII / re/ 
141 151 -ASCII /mai/ 
151 -ASCII /nin/ 
161 -ASCII /g @/ 
145 163 -ASCII /ues/ 
15: 157 -ASCII /tio/ 
163 040 -ASCII /ns / 
156 154 -ASCII /onl/ 
141 -ASCII /y a/ 
160 1 -ASCII /ppl/ 
164 -ASCII /y t/ 
040 165 -ASCII /o u/ 
160 162 -ASCII /npr/ 
164 145 -ASCII /ote/ 
164 145 -ASCII /cte/ 
040 i -ASCII /d d/ 
163 153 -ASCII /isk/ 
165 -ASCII / un/ 
164 163 -ASCII /its/ 
000 -ASCII <00><00> 
141 156 P.ABK: .ASCITI / 
146 141 -ASCII /ufa/ 
165 SCII /ctu/ 
151 156 ASCII /rin/ 
0 124 ASCII /g T/ 
163 164 ASCII /est/ 
000 -ASCII <00><00> 
156 141 P.ABL: .ASCII /Ena/ 
i 145 -ASCII /ble/ 
110 157 ASCII / Ho/ 
1 040 ASCII /st / 
145 155 ASCII /Mem/ 
} 





SEQ 0073 





RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 be 57 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISKSUSER2: [MLYNAR .ZRQ)ZRGAHO.BL1;4 O98 35) 
162 i171 -ASCII /ory/ 
050 115 -ASCII / (M/ 
061 -ASCII /SVi/ 
120 -ASCII /1-P/ 
| 114 054 -ASCII /,L,/ 
040 -ASCII /J) / 
141 162 -ASCII /Par/ 
1 171 -ASCII /ity/ 
-ASCII <00> 
P.ABM: .ASCII <00><00> | 
116 045 P.ABN -ASCII /sNs/ 
052 -ASCII /Aae/ | 
104 162 -ASCII / Or/ 
160 -ASCII /op / 
156 151 -ASCII /uni/ 
.ASCII /t #/ 
062 -ASCII /D2/<00> 
-ASCII <00> 
116 045 P.ABO: .ASCII /sNs/ 
052 052 -ASCII /Aes/ 
120 122 -ASCII / PR/ 
103 137 -ASCII /0C_/ 
124 -ASCII /RET/ 
‘3 124 -ASCII /PKT/ 
049 103 -ASCII /: C/ 
156 -ASCII /onn/ 
111 -ASCII / ID/ 
117 .ASCII / #0/ 
10: -ASCII /6sA/ 
162 145 -ASCII / re/ 
145 > as -ASCII /cei/ 
145 4 °4 -ASCII /ved/ 
000 -ASCII <00><00> 
116 045 P.ABP: .ASCII /sNs/ 
052 952 -ASCII /Asa/ 
115 165 ASCII / Mu/ 
164 151 -ASCII /lti/ 
144 162 -ASCII /-dr/ 
166 145 -ASCII /ive/ 
145 ASCII / te/ 
164 000 -ASCII /st/<00> 
116 045 P.ABG: .ASCII / 
052 052 -ASCII /Ase/ 
101 -ASCII / FA/ 
101 114 -ASCII /TAL/ 
105 122 -ASCII /_ER/ 
117 122 .ASCII /ROR/ 
122 cs 4: RS 
124 120 -ASCII /ETP/ 
124 040 -ASCII /KT / 
157 164 -ASCII /not/ 
141 166 -ASCII / av/ 
151 154 -ASCII /ail/ 


rrr terre sneer: | eens 








RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-5862 Page 58 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [MLYNAR . ZRQ)ZRGAHO.BL1;4 (35) 
14 142 154 -ASCII /abl/ 
L4 000 000 -ASCII /e/<00><00> 
045 116 045 P.ABR: .ASCII /sNs/ 
101 052 0s2 -ASCII /Ase/ 
1 i123 -ASCII / FS/ 
105 124 137 -ASCII /ET_/ 
125 101 - ASCII As 
12 072 040 -ASCII /R: / 
103 141 156 -ASCII /Can/ 
047 64 040 -ASCII /‘t / 
146 151 156 -ASCII /fin/ 
1 144 ASCII /d d/ | 
151 163 153 ASCII /isk/ 
045 104 -ASCII / #£D/ 
063 5 101 -ASCII /38A/ 
040 151 156 ASCII / in/ 
103 i123 ASCII / CS/ 
124 040 5 . ASCII / 
1 061 -ASCII /D1/<00> 
-ASCII <00> 
116 045 P.ABS: .ASCII /sNs/ 
101 2 -ASCII /Asas/ 
040 102 141 .ASCII / Ba/ 
144 040 143 ASCII /d c/ 
157 56 -ASCII /onn/ 
040 111 04 -ASCII / ID/ 
040 045 117 -ASCII / #0/ 
066 045 101 -ASCII /6s8A/ 
040 Se 145 -ASCII / re/ 
143 14 151 -ASCII /cei/ 
166 145 144 -ASCII /ved/ 
040 162 -ASCII / fr/ 
157 155 040 -ASCII /om / 
045 117 066 -ASCII /#06/ 
-ASCII <0Q0><00> 
116 045 P.ABT -ASCII /sNs/ 
101 052 052 -ASCII /Asas/ 
115 145 -ASCII / Me/ 
163 163 141 -ASCII /sse/ 
147 145 040 . ASCII “ge / 
171 160 -ASCII /typ/ 
145 0 045 -ASCII /e #/ 
117 062 045 -ASCII /028/ 
101 0 1 -ASCII /A r/ 
145 143 145 .ASCII /ece/ 
151 166 145 . ASCII /ive/ 
144 040 151 -ASCII /d i/ 
1 0 115 -ASCII /n M/ 
i123 103 120 -ASCII /SCP/ 
141 -ASCII / pa/ 
143 153 145 -ASCII /cke/ 
1 000 -ASCII /t/<00> 
045 116 045 P.ABU: .ASCII /sNs#/ 


— ee 


RO/RX EXERCISER 
PROTECTION TABLE 


ee eee 


P. ABV: 


P.ABX: 


P.ABY: 








SEQ 0075 


10-Oct-1985 09:32: i F 
2: (MLYNAR . ZRQJZRGAHO.BL1;4 


06 
10-Oct-1985 09:31:20 


7 35) 


ee ee ~ 


S988RREEEE 
an 


a333343 
SaeEsaeessseess 


~ 
~ 


eat 
a 


RD/RX EXERCISER 
PROTECTION TABLE 
144 040 
116 104 
117 104 
000 000 
116 045 
052 0S2 
125 156 
164 040 
151 172 
040 050 
157 051 
075 040 
104 065 
101 056 

000 

116 045 
125 156 
1 156 
164 040 
151 172 
040 050 
151 051 
075 040 
104 065 
101 056 
000 

116 045 
052 0S2 
101 103 
105 123 
072 040 
105 124 
H+ 124 
1 141 
040 142 
144 040 
116 104 
117 104 
000 

116 045 
052 052 
121 111 
137 125 
111 124 
040 103 
124 040 
104 061 
101 040 
157 040 
156 151 
040 163 
154 145 
164 145 


P.ABZ: 


P.ACA: 


P.ACC: 





10-Oct-1968 
10-Oct-1968 


fad / 
/ 


/C0D/ 
4E/<00><00> 
SSNS / 





7 
S 09:32:06 VAX-11 Bliss-16 V4.1-562 “ee 6 
S 09:31:20 DISK $USER2: (ML YNAR .ZRQ)ZRGAHO.BL1;4 (35) 


~ 


< > _ » e < = 
. _ - - - . ~ 


se 


3 





SE 


P.ACF: 


P.ACG: 





SEQ 0077 
VAX-11 Blies-16 V4.1-562 


10-Oct-1985 09:32:06 Pege 61 
31: DISKS$USER2: (MLYNAR.ZRQ})ZRQAHO.8L1;4 (35) 


10-Oct-1985 09:31:20 


sAse/ 


~ 
rm 
8 
~ 
Se ee dots 


————e ee ee 





SEQ 0078 








ZRQAM1L RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-562 P 
| vo2.3 PROTECTION TABLE 10-Oct-1965 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZRGAHO.6L1;4 oof ss) 
O84 56 164 040 4%) 7/ 
004461 156 157 164 /not/ 
004464 040 163 145 4 ee/ 
pore 156 164 040 fat / 
ease 142 17 040 Aeets / 
110 is 163 ASCII / 
00450¢ 164 000 -ASCII /t/<00> 
O04 $0¢ 045 i 045 P.ACI: .ASCII /sNs/ 
004 5< 403 052 -ASCII /Ase/ 
Oe 4 156 i 4 Un/ 
oss 153 157 ‘ /kno/ 
167 156 oo ols - , 
ad 162 . ASC rr 
cosse 133 i 040 for / 
+ 114 i 147 /Log/ 
Soas: iss dai ‘wom? 
00454¢ 040 bas /t &/ 
et 117 G3 045 /038/ 
Oe i 040 1 7 4A v/ 
9045° 14 143 34 , /ece/ 
9045 iS 14 Jive/ 
3045 1 000 000 44/<00><00> 
x 045 i 045 P.ACJ: fSte / 
x os Teo 
x 0s5 143 157 
or 145 
. 117 
O46 1 
040 


Su 
Ss8s2 
nae 


SSEERSRE SERGETEESE 
: 


045 P. ACK: 





eeeras 





/066/ 
4A/<S7>/8/ 
/068/ 


- eee -- 


_—— -—_ 


Sy 


= 
$3 


: 


EEReEEReEEE 
SeRUSUN IER 





ee 





SEQ 0079 


‘ASCII <00><00> 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 Vv4.1-582 Page 63 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [MLYNAR .ZRQ)ZRGAHO.BL1;4 (35) 
040 122 -ASCII /A R/ 
160 0s5 -ASCII /sp-/ 
143 040 -ASCII /bc / 
117 066 -ASCII /#06/ 
101 057 -ASCII /#A/<5S7> 
117 066 “ASCII /#06/ : 
101 040 -ASCII /#A / 
157 162 -ASCII /for/ 
045 117 -ASCII / #0/ 
045 101 "ASCII /68A/ | 
045 117 -ASCII <57>/#0/ 
045 101 -ASCII /6s8A/ | 
070 -ASCII / (€8/ 
000 000 -ASCII /)/<00><00> 
116 045 P.ACL: .ASCII /sNs/ 
052 052 -ASCII /Ass/ 
122 145 ASCII / Re/ 
157 -ASCII /spo/ 
163 145 -ASCII /nse/ 
141 154 -ASCII / al/ 
145 141 -ASCII /rea/ 
171 040 -ASCII /dy / 
145 143 “ASCII /rec/ 
151 166 -ASCII /eiv/ 
1 040 -ASCII /ed / 
157 162 -ASCII /for/ 
143 155 ASCII / cm/ 
045 ASCII /d #/ 
045 ASCII /06s/ 
057 045 ASCII /A/<57>/#/ 
045 -ASCII /06s8/ 
050 -ASCII /A (7 
051 -ASCII /8)/<00> 
.ASCII <00O> 
116 P.ACM ASCII /sNs/ 
052 -ASCII /Ase/ 
106 141 «ASCII / Fa/ 
154 165 ASCII /ilu/ 
145 0 -ASCII /re / 
157 040 -ASCII /to / 
145 156 -ASCII /sen/ 
143 ASCII /d ¢/ 
155 155 ASCII /omm/ 
144 -ASCII /and/ 
141 146 -ASCII / af/ 
145 162 ASCII /ter/ 
040 -ASCII /@/ 
117 066 -ASCII /#06/ 
101 057 ASCII /#A/<57> 
117 066 ASCII /#06/ 
101 040 ASCII /#A / 
070 051 ASCII /(€8)/ 


-_—-- 


~~ 


eee ee 


~waw~ : 
Nae Ou 


pt ne 
Nar auo 





RO/RX EXERCISER 
PROTECTION TABLE 


116 
122 


045 


ee 


P.ACO: 


P.ACP: 


P.ACQ: 





10-Oct-1985 09:32:06 
10-Oct-1965 09:31:20 


———_— -—-. 


VAX-11 


DISK $USE 


* 
ry 
o 
< 
ty 


RQ) 


2 
Z 


SEQ 0080 


RQAHO .BL1;4 


Pp 64 
Oe 35) 


<2 qqeeee > see ws wee - - - - « 


oe unas 


“Rim 
PAAR Pyy 
eouUouns 


IAA RAR RRRRARARAG 
~aP 
Ome Ore _ 
EREESEEESRESSaNSS 


BSR 


~~ 


SEQ 0081 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 ee 65 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR . ZRQ}ZRGAHO.BL1;4 oe 35) 
123 -ASCII /€ST/ 
1 114 -ASCII / FL/ 
107 -ASCII /AG / 
105 124 -ASCII /SET/ 
-ASCII <O00> 
326 045 P.ACR -ASCII /sNs/ 
0s2 -ASCII /fee/ 
105 122 -ASCII / ER/ 
117 122 .ASCII / 
104 125 -ASCII / DUs 
111 116 . ASCII 
it ASHE 
103 105 -ASCII /ACE/ 
116 -ASCII 
-ASCII /T (7 
101 104 -ASCII /BAD/ 
114 -ASCII / Bi/ 
103 113 -ASCII /OCK/ 
1 -ASCII /) F/ 
101 107 -ASCII /LAG/ 
105 -ASCII / SE/ 
000 000 -ASCII /1/<00><00> 
116 045 P.ACS: .ASCII /sNs/ 
125 116 -ASCII /AUN/ 
124 045 -ASCII /IT#/ 
062 045 -ASCII /D2s/ 
040 104 ASCII 
117 120 
105 104 
055 040 
000 
+3 125 P.ACU 
1 122 
103 117 
115 101 
104 
000 000 
101 103 P. ACV: 
116 106 
107 125 
101 124 
117 116 
105 122 
117 122 
116 000 
101 111 P. ACW: 
111 124 
105 122 
117 122 
116 000 
101 124 P.ACX: 





— —e 2 ee OT eT 


RD/RX EXERCISER 


02.3 PROTECTION TABLE 
005633 122 101 116 
005636 123 106 105 
005641 122 040 114 
005644 111 115 111 
005647 124 040 122 
Conese 101 103 
00565 110 105 104 

, 005660 Ss 116 000 
005663 
| oonees 045 101 105 
7 i22 117 
00567 122 114 
0056 111 115 111 
005700 124 122 
005703 105 101 103 
706 110 104 
005711 045 116 000 
714 045 101 125 
717 116 122 105 
103 117 126 
4 105 122 101 
102 114 105 
733 040 104 122 
36 111 1 105 
741 040 105 122 
Ha 122 117 122 
005747 045 116 000 
045 101 125 
005755 116 122 105 
760 103 117 126 
763 105 122 101 
766 102 114 105 
771 049 103 117 
774 116 124 122 
005777 117 114 114 
105 122 040 
105 122 122 
006010 117 122 045 
006013 116 000 
006016 045 101 106 
006021 101 111 114 
006024 105 1 040 
7 124 117 040 
0060 103 117 115 
006035 05 117 
006040 116 114 111i 
006043 116 105 045 
006046 116 000 
006050 045 101 106 
006053 101 111 114 
006056 105 104 040 
006061 124 117 040 
006064 101 103 103 


-_——- See 


10-Oct-1985 
10-Oct-1985 


09: 
09: 


32: 
31: 


06 
20 


SEQ 0082 


VAX-11 Bliss-16 v4.1-5862 
DISK $USER2: [ML YNAR. ZRQ JZRGAHO.B1L.1;4 


66 
ak 35) 


= -_ . STD Geer ere ee te 


— ~« 


RD/RX EXERCISER 
PROTECTION TABLE 


123 
105 
110 
040 


P.ADD: 


P.ADE: 


PACT: 


P. ADF: 


P.ADG: 


B35 


VAX-11 B 


10-Oct-1985 09:32:06 1 
DISK$SUSER2: 


1e0-16 v4 SEQ 0083 
10-Oct-1985 09:31:20 2:[ 


.1-582 
ML YNAR . ZRQ)ZRGAHO.BL1;4 


67 
(35) 


rr ee ee | 


RD/RX EXERCISER 
PROTECTION TABLE 


P.ADJ: 


10-Oct-1985 09:32:06 VAX-11 Bliss-16 V 


10-Oct-1985 09:31:20 





LS A et it it 


582 Page 
DISKSUSER2: CHL YNAR. TRO} ZROAHO. BL1;4 oe 35) 


SEQ 0084 
68 


EE EE TE 


— 


ZRQAM1 

vo2.3 
006541 105 040 
| 006544 122 105 
| 006547 104 123 
peer en | 040 
| 00655 122 
estat 101 104 

006 

006 122 111 


124 05 
045 101 
006611 123 


04 
110 
0066 124 
006635 105 113 
006636 104 101 
006641 040 
006644 126 
006647 123 124 
0066 045 116 
00665 101 
006660 055 
006663 055 055 
006666 oSS 
006671 055 


pan th | 

0067 0S5 055 
006710 OSS 055 
0067153 055 


24 
006727 055 0SS 
0067 055 0sS 
00673 0sS 000 
006740 045 101 
0067435 055 055 
746 0 oss 
006751 055 040 
055 055 
006757 osS oS5 
7 040 
0067 055 


RO/RX EXERCISER 
PROTECTION TABLE 


P.ADL: 


P.ADN: 





= 


VAX-11 Bliss-16 V4. _ ay 


10-Oct-1985 09:32:06 562 69 
DISK SUSER2: [MLYNAR. FROIZROAHO. BL1;4 oe 35) 


10-Oct-1985 09:31:20 


4E /£ 
/REA/ 

/O0S / 

/ 

4 RE/ 
4AaAD / 
/ Ws 
/RIT/ 
/ES / | 
4 Ws 

/RIT/ 

/TEN/ 

<00> 

/@A / 

4 SE/ 

4K DZ 

AT / 

/DRV/ 

4 HS/ 

/T S/ 

EK / 

/DAT/ 

4 DOR/ 

4V HZ 

4ST/<00> 

/8N8/ 

sR--/ 

f- -/ 

4-- / 

4---/ 

fx: £ 

4---/ 

f-- / 

4 --/ 

4---/ 

4---/ 

f- -/ 

J---/ 

f-- f/ 

4 --/ 

f---/ 

fe--/ 

4-/<¢00><00> 

48a / 

f---/ 

4 --/ 

4- =-/ 

4-- / 

4---/ 

4 --/ 

4- -/ 

f-- f 

J---/ 


— a 


— 


- 





me — 


SEQ 0086 


RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-582 Page 70 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK$USER2: CL YNAR: ZRQ]ZRQAHO.BL1;4 (35) 

055 0s5 SOI f =0f 

000 000 -ASCII /-/<00><00> 

116 045 P.ADO: .ASCII /siNs/ 

062 045 ASCII /D2s/ 

064 045 ASCII /048/ 

062 045 Il /S2s/ : 

000 ASCII /T/<00> 

104 064 P.ADP: .ASCII /#D4/ 

132 063 ASCII /#23/ 

104 063 ASCII /#D3/ 

101 054 Il /#A,/ 

132 063 ASCII /#7Z3/ | 

101 054 ASCII /SA,/ 

132 063 CII /#723/ 

-ASCII <00> 

104 064 P.ADQ: .ASCII /#D4/ 

104 064 ASCII /8D4/ , 

104 064 Ii /#D4/ 

104 064 ASCII /#D4/ 

104 064 ASCII /#D4/ 

104 064 ASCII /#04/ 

104 064 ASCII /#D4/ 

104 064 ASCII /#D4/ 

000 -ASCII <00><00> | 

116 045 P.ADR: .ASCII /sNs/ 

040 056 ASCII /A ./ 

040 040 ASCII / / 

040 040 ASCII /. 

116 124 ASCII /CNT/ 

040 040 .ASCII /R / 

040 040 ASCII / / 

056 040 ASCII / . / 

056 956 eso Gey Aamene 

056 056 ASCII /.../ 

056 056 ASCII /.../ 

040 040 es Te ae 2 

040 040 Meee Fa 

040 -ASCII /./ 

056 056 ASCII / ../ 

056 056 -ASCII /.../ 

056 056 ASCII /.../ 

000 000 -ASCII /./<00><00> 

101 040 P.ADS: .ASCII /#A / 

040 056 es Ce eer, 

040 040 ASCII / / 

045 104 ASCII /.#D/ 

045 101 ASCII /48A/ 

040 040 ASCII / / 

040 040 .ASCII /. / 

056 040 ASCII /./ 

040 056 ,” 5) aoe; 

104 064 ASCII /#04/ 

101 040 ASCII /#A / 


S 
° 


tet cee —— eee 


SESS RENE SSSSESERERRELES 


SaESS53E5 


tt 


7 


uae 


SSa82SSasSE35 


~ 
~ 
~ 


r- 





owe ee eee ee 


SEQ 0087 


RD/RX EXERCISER 10-Oct-1985 09:32:06 X-11 Bliss-16 v4. Page 71 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISKsUSERS. : (MLYNAR. sROTZROAHO. BL1i;4 (35) 
040 056 lf a ee 
000 -ASCII <00><00> 
101 040 P.ADT: .ASCII /#A / 
040 056 ASCII / 4/4 
040 040 .ASCII / 
045 i -ASCII /.#8D/ 
045 101 -ASCII /48A/ 
040 -ASCII / / 
040 ASCII /. / 
056 040 -ASCII /./7 | 
040 056 ASCII / ./ 
104 064 II /#04/ 
101 040 -ASCII /#A / 
040 056 ASCII / ./ 
000 -ASCII <00><00> 
116 045 P.ADU: .ASCII /sNs/ 
045 101 -ASCII /NSA/ 
116 111 -ASCII /UNI/ 
040 040 -ASCII /T 
111 123 -ASCII /DIS/ 
040 ie) .ASCII / 
040 040 -ASCII / / 
040 040 -ASCII / / | 
040 040 ASCII / / 
043 040 ASCII /#@#@/ 
106 040 -ASCII /OF / 
040 043 ASCII / @/ 
102 114 .ASCII / BL/ 
123 040 -ASCII /KS / 
040 -ASCII / / 
0 ASCII / / 
040 117 -ASCII /@ O/ 
040 040 -ASCII /F / 
0 043 -ASCII / 
102 114 -ASCII / BL/ 
123 -Aeeas “KS / 
‘; II <00> 
116 045 P.ADV: .ASCII /sNs/ 
040 040 -ASCII /A / 
040 ASCII / 
040 -ASCII / 7 
040 040 -ASCII /@ / 
040 040 - ASCII / 
131 120 ASCII /TYP/ 
040 -ASCITI 
122 105 -ASCII / RE/ 
1 123 -ASCII /ADS/ 
040 040 -ASCII / 
122 -ASCII / R/ 
101 104 -ASCII /E€AD/ 
04 040 ASCII 
040 040 ASCs 6 f O 
122 111 ASCII /WRI/ 





RD/RX EXERCISER 





PROTECTION TABLE 


105 


123 


P .ADX: 


P.ADY: 


P.ADZ: 





10-Oct-1985 


09:32:06 VAX-11 Blies-16 V 
10-Oct-1985 09:31: 


582 Page 
:20 DISK SUSER2: CHL YNAR.: 7RG}ZROAHO. BL1;4 35) 


SEQ 0088 
72 


ES TT ~ 


oe © 6. we ewes ee ene 


mm 


010141 


RD/RX EXERCISER 
PROTECTION TABLE 


101 
114 








ee 


SEQ 0089 
~562 Page 73 


4.1-S 
ZRQJZRGAHO .BL1;4 ee 35) 


VAX-11 8 -16 V 
ML YNAR . 


10-Oct-1985 09:32:06 li 
DISK SUSER2 


'Ss- 
10-Oct-1985 09:31:20 :[ 





ee 





rr ee ee 


SEQ 0090 


ZRQAM1 RDO/RX EXERCISER 10-Oct-1965 09:32:06 VAX-11 Bliee-16 V4.1- Pege 74 
 vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.8L1;4 (35) 
103 117 116 .ASCII /CON/ 
122 117 -ASCII /TRO/ 
114 114 105 -ASCII /LLE/ 
122 040 -ASCII /R E/ 
122 122 117 : II / 
00 -ASCII /R/<00><00> 
117 116 114 P. AEF .ASCII /ONL/ 
111 116 -ASCII /INE/ 
101 -ASCII / FA/ 
111 114 05 -ASCII /ILE/ 
-ASCII /0/<00> 
127 111 P.AEG: .ASCII /WRI/ 
105 5 -ASCII /TE-/ 
120 117 .ASCII 
124 1 103 -ASCII /TEC/ 
124 103 P Ir /T 
117 116 106 II /ONF/ 
114 111 103 -ASCII /LIC/ 
124 000 000 -ASCII /1T/<00><00> 
10 103 103 P.AEH: .ASCII /ACC/ 
1 123 123 -ASCII /€SS/ 
101 -ASCII / FA/ 
111 114 -ASCII /ILE/ 
104 000 -ASCII /0/<00> 
106 101 124 P.AEI: .ASCII /FAT/ 
101 114 040 -ASCII /AL / 
111 057 117 -ASCII /1/<57>/0/ 
040 105 122 ASCII / ER/ 
122 117 122 ASCII /ROR/ 
-ASCII <00> 
111 123 P.AEJ: .ASCII /OIS/ 
113 040 124 -ASCII /K T/ 
131 120 ASCII /YPE/ 
040 116 . ASC 4 UN/ 
113 116 117 Aeere /KNO/ 
eH ii? ASCTE 710 7 
105 to -ASCII /EXE/ 
ie@ 103 111 ASC /RCEI/ 
i2 105 i122 -ASCII /SER/ 
108 ttt 111 P. AEK *ASETE 34 _ 
114 105 104 ASCII LED 
040 124 117 .ASC 4 TOs 
040 i123 105 -ASCII / SE/ 
i $ 104 040 ASCII MY 
105 124 ASCII /SET/ 
103 117 -ASCII /-CO/ 
116 124 i II /NTR/ 
117 114 114 -ASCII /OLL/ 
~ASCII /ER-/ 
103 110 101 -ASCII /CHA/ 
101 103 -ASCII /RAC/ 





———_—————w ee et 





| SEQ 0091 
ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliee-16 v4.1 
| yoo. 3 PROTECTION TABLE 10-Oct-1985 09:31:20  DISK#USER2;TMLYNAR, ZROIZROAMO.0L1,4 "(36> 





010376 122 .ASCII 
01040 124 é 
123 ‘ 
oH -ASCII 
000 -ASCII 
124 P.AEL: ° 
117 
122 
ait : 
5 ‘ 
101 ‘ 
103 ; 
122 5 
124 é 
165 -ASCI 
iss ASE 
101 . ASCII 
102 ; 
108 .ASCII 
104 ’ 
117 . 
106 ‘ 
. 107 ‘ 
. 111 ; 
+ 105 . 
- 117 . 
9108 111 P.AEM: .ASCT) 
. 10% 104 . J » 9 
9105 117 . ASCT: 
10% 105 .ASCT] 
108 040 - ASCT: 
: 08 2 055 e@ tL. 
01058 116 “ASCE: 
1058 103 . ASCT: 
, a ++ 115 e oT 8. 
444+ 104 > 4 +? 
- 24° ” a gi 4 9 
~Ti 0s5 P. AEN: . a § 
~ i2z2 bs CT! 
>: 120 - RIL. 
: 123 - ASCT} 
5 110 .ASCT) 
GAG AQ wd rd 
: 104 -ASCT 
: 116 o Me wad 
117 ‘ x 
000 ‘ I 


— 


* me eee Eee ES 
| ooo o ° °o 


RO/RX EXERCISER 
PROTECTION TABLE 


- Se ee 


A 
P.AEQ: .ASCII 
.AS 


P.AER: ASCII 


P.AES: .ASCII 


10-Oct-1985 09 
10-Oct-1985 09 


VAX-11 Bliss-16 V4. 


1-582 age 
DISK$USER2: [MLYNAR .ZRQ)ZRQAHO.8L1;4 (35) 


SEQ 0092 
76 


7 ee ee ee 
LE 


oooo 

tee 
popebe 
roe 


etetetetetetetete 
aR 


uounas 


-AWwUoO 


Syosgenaas sc 
JSLSSSS 


San 


att of epeteteleretetetete 
eres 
Ow 


Ss 


Sayers 


ob ee pee ee pe he pt pet pe pe 


cocooococoooooeooso 
repesenesosase bo et ee 
wv 


~vn~ 
S822 


RD/RX EXERCISER 
PROTECTION TABLE 


105 
117 
000 
101 
123 


_—_— ——_— + 


P.AET: 


P.AEU: 


P .AEV: 


P.AEW: 


P. AEX: 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


*KET/ 
45/<00><00> 
/#Aa/ 


re ee ee ——— Fe ee ee 


VAX-11 
DISK $US 


m@ 
rs 
' 

= 

<n 

< 

& 


SEQ 0093 
li .1-582 Page 77 
R2: (MLYNAR .ZRQ)ZRGAHO.BL1;4 (35) 


ee ee oe 


A A A A 


2 
¥ 
A) 


oe ee pe pe pee pe 


aanseeens 


cooooocoococoocoo 
oe ee ee pepe pe 
lododked added etot tote) 
_ 
wr 


=r 


Or pe pape 
H+ 4 Or 
te Le La) 


eceoee pee pe 
SSryeues 


SS rt $3 


RO/RX -XERCISER 
PROTECTION TABLE 
040 127 
116 124 
124 117 
124 110 

042 
126 101 
114 10°. 
114 105 
040 123 
101 124 
000 
055 040 
116 122 
103 117 
116 111 
105 104 
115 105 
123 101 
105 040 
131 120 
000 000 
055 040 
116 122 
103 117 
116 111 
105 104 
103 117 
116 105 
124 111 
116 040 
104 000 
055 040 
116 i22 
103 117 
116 111 
105 104 
12 105 
i 122 
040 115 
123 123 
107 105 
000 
oss 040 
116 122 
103 117 
116 111 
105 104 
i122 105 
125 122 
040 120 
103 113 
124 000 
oss 040 


_— ees ee ee 


P.AEY: 


P.AEZ: 


P AFA: 


P AFB: 


P.AFC: 


/GE 
STYP/ 
4E/<00>< 
or ae 


/UNR / 
/ECO/ 


10-Oct-1985 
10-Oct-1985 


00> 


09 
09 


:32 
:31 


:06 
:20 


SEQ 0094 


.2RQ)ZROAHO .BL1;4 





P 78 
~~ 35) 


ZRQAM1 
vo2.3 


611553 


_— <<. 


° 
= pp 
2 pe pe 

~ 

~“ 


°o 
~ 
~ 
o 
- 
ust 


RO/RX EXERCISER 
PROTECTION TABLE 


— ee ee el 


P.AFF: ASCII 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


EE ee _—_ 


VAX-11 Bliss-16 v4.1-582 Page 79 
DISK SUSER2: [MLYNAR. ZRQ)ZROAHO.BL1;4 (35) 


SEQ 0095 


eee eee 


| = Ss ese Ss elses 


entree eres ane 


a 





LE ee 


SEQ 0096 


ZROAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-582 Page 80 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK$USER2:(MLYNAR. FRaIZROAHO. GL1;4 (35) 
012007 120 101 122 .ASCII /PAR/ 
012012 105 040 105 “ASCII 
012015 122 122 000 "ASCII /RR/<00> 
012020 040 055 040 P.AFJ: [ASCII / -/ 
012023 125 116 101 “ASCII. /UNA/ 
0120 102 114 105 “ASCII /BLE/ 
012031 ri 124 417 ASCII / TO/ 
012034 114 117 "ASCII / LO/ 
012037 101 040 "ASCII /AD / 
012042 04 125 120 "ASCII /DUP/ | 
012045 115 105 "ASCII / ME/ 
012050 104 111 101 "ASCII /DIA/ 
012053 “ASCII <00> | 
012054 055 040 P.AFK: [ASCII / - / 
012057 105 122 22 "ASCII /ERR/ | 
111 116 “ASCII / IN/ 
01206 104 125 "ASCII / DU/ 
012070 20 20 "ASCII /P P/ 
012073 113 040 "ASCII /KT / 
7 110 105 “ASCII /WHE/ 
012101 116 125 “ASCII U/ 
123 111 116 "ASCII /SIN/ 
012107 107 103 “ASCII /G C/ 
012112 124 114 122 ASCII /TLR/ 
012115 114 103 ASCII / LC/ 
120 122 "ASCII / PR/ 
012123 117 107 000 "ASCII /0G/<00> 
045 101 C52 P.AFL: ASCII /#Aa/ 
012131 040 104 ili "ASCII / DI/ 
123 113 045 "ASCII /SKs/ 
012137 104 062 000 "ASCII /D2/<00> 
012142 045 101 iil P.AFN: ‘ASCII /#AI/ 
012145 116 126 101 “ASCII /NVA/ 
114 lil 104 "ASCII /LID/ 
012153 103 117 “ASCII / CO/ 
012156 115 115 101 "ASCII / 
012161 116 104 000 “ASCII /ND/<00> 
101 103 P.AFO: ‘ASCII /#AC/ 
012167 117 115 115 “ASCII /OMM/ 
01217 101 116 104 "ASCII /AND/ 
01217 101 102 "ASCII / AB/ 
117 122 124 "ASCII /ORT/ 
012203 105 i 000 "ASCII /ED/<00> 
101 125 P.AFP: {ASCII /#AU/ 
012211 116 111 124 "ASCII /NIT/ 
012214 117 106 “AS / OF/ 
012217 114 lil "ASCII /FLI/ 
01222 116 105 000 “ASCII /NE/<00> 
0 "ASCII <00> 
012226 101 124 P.AFQ: ‘ASCII /#AT/ 
012231 122 101 116 ASCII /RAN/ 
012234 123 lil 124 "ASCII /SIT/ 
012237 111 117 116 "ASCII /ION/ 


ZRQAM1 
vo2.3 


. 012242 


— — 


ee 


RO/RX EXERCISER 
PROTECTION TABLE 


117 
26 


P.AFS: 


wm 


P. AFT: 


+ 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


re ee ee a 


VAX-11 Bliss-16 V4.1-562 81 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 oe 35) 


SEQ a 


eon wre meee 
A Re 


-_———_— oom 





SEQ 0096 


ZRQAM1 RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 82 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: (MLYNAR . ZRQ)ZRQAHO.BL1;4 (35) 
012472 105 040 105 -ASCII /E E/ 
| 012475 122 122 117 -ASCII /RRO/ 
0 122 000 -ASCII /R/<00> 
012502 04 101 115 P.AFY: .ASCIT /#AM/ 
0 105 1235 123 -ASCII /€SS/ 
012510 101 107 105 -ASCII /AGE/ 
012515 04 106 122 -ASCII / FR/ 
012516 117 115 040 -ASCII /0M / 
012521 111 116 124 -ASCIIT /INT/ 
] 122 116 -ASCII /ERN/’ 
0 7 101 114 -ASCII /AL / 
01 111 101 -ASCII /DIA/ 
012535 107 116 117 -ASCII /GNO/ 
012540 123 124 111 ASCII /STI/ 
012543 103 123 ASCII /CS/<00> 
101 110 P.AFZ ASCII 
012551 117 123 124 /0ST/ 
0125 103 117 ASCII / CO/ 
012557 115 120 101 ASCII /MPA/ 
122 105 040 It 
01256 122 122 -ASCII /ERR/ 
012570 117 122 I /0R/<00> 
012573 -ASCII <00> 
012574 045 101 103 P.AGA: .ASCII /#AC/ 
012577 117 115 115 -ASCII /OMM/ 
] 101 116 -ASCITI 
124 111 -ASCII / TIi/ 
012610 115 105 117 -ASCII /MEO/ 
012613 125 124 000 -ASCII /UT/<00> 
012616 045 101 102 P.AGB: .ASCII /#AB/ 
012621 101 104 040 -ASCII /AD / 
012624 102 114 117 I /8L0/ 
012627 103 113 ASCII /CK / 
012632 122 105 120 ASCII /REP/ 
012635 114 101 103 II /LAC/ 
105 115 105 SCII / 
012643 116 124 040 ASCII / 
103 117 115 ‘ I /COM/ 
012651 120 114 105 -ASCII /PLE/ 
0126 124 111i 117 -ASCII /TIO/ 
012657 116 000 000 -ASCII /N/<00><00> 
012662 012142' P.AFM: .WORD P.AFN 
012664 012164' -WORD P.AFO 
01 0 ‘ -WORD P.AFP 
012670 012226' -WORD P.AFG 
012672 0O -WORD P.AFR 
012674 0123514' -WORD P.AFS 
012676 012536’ -WORD P.AFT 
012700 012366' -WORD P.AFU 
702 012404' -WORD P.AFV 
012704 012440' -WORD P.AFW 
012706 012464’ -WORD P.AFX 
012710 012502’ -WORD P.AFY 


—— <n 





LL ti, tt 


SEQ 0099 


042 ‘ 
013140 124 101 116 -ASCII /TAN/ 


ZRGAM1 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 P 83 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 Oe 35) 
012712 012546’ .WORD P.AFZ 
012714 012574’ .WORD P.AGA 
012716 012616‘ .WORD P.AGB 
012720 045 101 1 P.AGC -ASCII /#AE/ 
012723 122 122 117 -ASCII /RRO/ 
040 114 ASCII /R L/ 
012731 117 107 ASCII /0G 
12734 115 105 123 .ASCII /MES/ 
012737 3 101 107 ‘ II /SAG/ ' 
0127 105 040 122 -ASCII /E R/ 
01274 103 105 .ASCII /ECE/ 
012 111 126 105 -ASCII /IVE/ 
otetee 972 045 -ASCII /0:8/ : 
012 116 000 -ASCII /N/<00> 
012760 5 101 052 P.AGE: .ASCII /sAs/ 
012763 103 117 -ASCII / CO/ 
012766 116 124 122 -ASCII /NTR/ 
012771 117 114 114 -ASCII /OLL/ 
012774 122 -ASCII /ER / 
012777 1 122 122 -ASCII /ERR/ 
01 117 122 045 -ASCII /ORS/ 
013005 116 000 000 -ASCII /N/<00><00> 
013010 045 101 052 P.AGF: .ASCII /#As/ 
013015 040 110 117 .ASCII / HO/ 
013016 123 124 040 -ASCII /ST / 
013021 115 105 115 . ASCII 
013024 117 122 131 -ASCII /ORY/ 
013027 101 103 -ASCII / AC/ 
103 105 123 -ASCII /CES/ 
013035 123 040 105 -ASCII /S E/ 
122 117 -ASCII /RRGO/ 
013043 122 045 116 - ASCII 
01 000 000 -ASCII <00><00> 
01 045 101 052 P.AGG: .ASCII /#Aa/ 
013053 040 104 111 -ASCII / DI/ 
01 123 113 045 ‘ II /SKs/ 
013061 04 062 045 ASCII / 
01 101 040 055 ASCII /A -/ 
013067 0 104 111 -ASCII / DI/ 
01307 123 113 040 - ASCII / 
01307 124 122 101 -ASCII /TRA/ 
1 116 123 106 -ASCII /NSF/ 
013103 105 122 040 -ASCII /ER / 
105 122 122 -ASCII /ERR/ 
013111 117 122 045 -ASCII /ORS/ 
013114 116 000 -ASCII /N/<00> 
013116 045 101 052 P.AGH: .ASCII /#As/ 
013121 040 104 111 -ASCII / DI/ 
15 123 113 045 ASCII /SKs/ 
te i 045 ASCII /D2s/ 
0131 101 040 055 -ASCII /A -/ 





—— ee eee 


A LT A ee i tet 


ZRQAM1 
vo2.3 


0131435 


RDO/RX EXERCISER 
PROTECTION TABLE 


101 
040 


P.AGI: 


P.AGJ: 


P.AGD: 





10-Oct-1985 
10-Oct-1985 





SE ee _ 


8) 
09:32:06 VAX-11 Bliss-16 V4.1-582 wey 84 
09:31:20 DISK SUSER2: [MLYNAR .ZRQ)ZRGAHO.BL1;4 (35) 


eer er a me eee eee 


ZRQAM1 
vo2.3 


013371 


ED eee 


RD/RX EXERCISER 
PROTECTION TABLE 
052 040 
124 101 
125 123 
103 117 
105 O72 
045 117 
000 000 
117 064 
116 045 
052 040 
125 102 
1u3 117 
105 072 
000 000 
aa 

040 
117 115 
101 116 
072 040 
101 122 
101 104 
000 
101 127 
111 124 
000 
101 055 
117 115 
101 122 
000 000 
101 117 
114 111 
105 000 
101 101 
103 105 
123 000 
117 063 
116 045 
052 040 
101 104 
102 114 
103 113 
040 045 
066 045 
040 045 
066 045 
040 040 
117 103 
101 114 


P . AGU: 
P.AGV: 





10-Oct-1985 09:32: 
10-Oct-1985 09:31: 





VAX-11 Bliss-16 V ege 685 
DISKSUSER2: CHC YNAR: FRO 1ZROAHO. 6L1;4 (35) 


SEQ 0101 


ee ee ee 


——— — 





SEQ 0102 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-562 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 ee 35) 
-ASCII /)/<00> 
116 045 P. AGW: eae /aNS/ 
040 ‘ II /Ae / 
123 124 -ASCII /1ST/ 
102 101 .ASCII / 
102 .ASCII /0 B/ 
117 103 -ASCII /LOC/ 
072 040 -ASCII /K: / 
117 066 -ASCII /#06/ 
101 040 -ASCII /#A / 
117 066 .ASCII /#06/ 
101 040 .ASCII /#A / 
950 117 -ASCII / (0/ 
124 101 -ASCII /CTA/ 
051 000 -ASCII /1L)/<00> 
116 045 P .AGX .ASCII /sNs/ 
052 040 -ASCII /Aa / 
101 104 -ASCII /BAD/ 
102 114 -ASCII / BL/ 
103 11 -ASCII /0CK/ 
12 105 -ASCII / RE/ 
114 101 -ASCII /PLA/ 
1 104 -ASCII /CED/ 
040 045 .ASCII /: #/ 
066 045 /068/ 
040 045 -ASCII /A &/ 
066 045 -ASCII /068/ 
040 0 -ASCII /A / 
117 103 -ASCII /(€OC/ 
101 114 -ASCII /TAL/ 
900 -ASCII /)/<00><00> 
116 045 P.AGY: .ASCII /sNs/ 
052 0 -ASCII /Aa / 
102 116 .ASCII /LBN/ 
040 045 ASCII /: #/ 
066 045 -ASCII /068/ 
040 045 -ASCII /A &/ 
066 045 -ASCII /06s/ 
040 I “A £ 
117 103 F /COC/ 
101 114 -ASCII /TAL/ 
000 -ASCII /)/<00> 
116 045 P.AGZ: .ASCII /sNs/ 
052 040 -ASCII /Ae / 
102 116 . ASCII / 
040 045 -ASCII /: #/ 
066 045 -ASCII /068/ 
040 045 -ASCII /A #/ 
066 045 -ASCII /068/ 
040 040 -ASCII /A / 
117 103 -ASCII /COC/ 
101 114 -ASCII /TAL/ 
000 -ASCII /)/<00> 


- ee eee a 





SEQ 0105 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 P 87 
PROTECTION TABLE 10-Oct-1985 09:31:20  OISKSUSER2:{MLYNAR.ZRQ)ZRQAHO.BL1;4 "(35> 
116 045 P. AHA: -ASatt yg 
} 0s2 040 .ASC x 
ose 102 116 .ASCII /LBN/ 
-ASCII / RE/ 
4064 bts | 072 -ASCII /AD:/ 
| 014067 045 117 -ASCII / #0/ 
O45 101 -ASCII /68A/ 
0140 045 117 -ASCII / #0/ 
045 101 -ASCII /68A/ 
-ASCII / (C/ 
4 103 -ASCII /0OCT/ 
114 051 -ASCII /AL)/ 
900 -ASCII <00><00> 
a6 045 P.AHB: .ASCII /sNs/ 
ie fie ASE 
127 122 -ASCII / / 
-ASCII /ITT/ 
116 072 -ASCII /E€N:/ 
117 -ASCII / #0/ 
045 101 -ASCII /68A/ 
045 117 -ASCII / #£0/. 
045 101 -ASCII /68A/ 
-ASCII / (/- 
103 -ASCII /0CT/ 
114 051 .ASCII /AL)/ 
-ASCII <00> 
6 045 P.AHC: .ASCII /sNs/ 
040 -ASCII /As / 
102 116 -ASCITI 
040 045 ASCII /: #/ 
066 045 ‘ /068/ 
040 045 é II /A &/ 
066 045 +t /06%8/ 
040 040 ‘ fa f/f 
117 103 pg 
101 114 II /TAL/ 
00c ‘ II /)/<00> 
116 045 P.AHD: . / eet / 
040 e /Aa / 
131 ; /BYT/ 
040 103 -ASCII /€ C/ 
125 116 -ASCII / 
040 111 Il /T I/ 
040 103 ‘ II /¥ C/ 
115 115 -ASCII 
116 104 ASCII /AND/ 
040 045 -ASCII /: #/ 
065 045 .ASCII 
056 000 -ASCII /A./<00> 
116 045 P.AHE: .ASCII 
052 O40 -ASCII /Ae / 
131 124 -ASCII /B8YT/ 
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a yey 
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Raitt 


Sheodotohctcscdcdcpedctotcdopchctotctetotetotehetoehe eek 
BEESEEE ESSERE 
ecagety tues m P & & Dsus 


Fe 
a ae 


Seeeeaess 2oSSR8iearsees sass keesec enc aes eRe ceechcs 


CNESEUESRS ates RSENONS 


/RX EXERCISER 





103 


pe 1g $54 A 7 


IMO 


SyH Oe +e sieve} 


7 | 
‘38 
-~> 
tt 
e 
e+ 
se dha 


roe ot 
oie 


+h Br ata+ 
o+ ++ 





fate / 
434¢37>/6/ 
A 4 


10-Oct-1985 09:32:06 
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4.4¢<Q0><00> 
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VAX-11 B1li 
DISK SUSER2 
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—— ee ee ————_— 


SEQ 0104 


“16 V4.1- 
YNAR . ZRQ JZRGAHO .BL1;4 


P 8&6 
oer 35) 


— 


014766 
014771 


RD/RX EXERCISER 
PROTECTION TABLE 


V—— eee ee a et ——<—- = — 


SEQ = 
VAX-11 Bliss-16 V4. 


10-Oct-1985 09:32:06 582 
DISK SUSER2: [MLYNAR. 7RO}ZROAHO. 5L1;4 m9 035) 


10-Oct-1985 09:31:20 


ecooooooocooocooosco 
ee eee 
vvnNNvruuu 


ee 


rn 
~~ ae 


RD/RX EXERCISER 
PROTECTION TABLE 


7A. 8/ 


——_——-- _— ee eee ee; 


10-Oct-1985 09:32:05 
*0-Oct-1985 09:31:20 


/N/<00><00> 


GA / 


VAX-11 Bliss-16 V4.1-562 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 


SEQ 0106 
Page 90 
(35) 


ee -_— - 


— —-- _— ee ee eee 


— - —_ LLL LL LC ttt a ———_—— -_- 


SEQ 0107 








ZRGAM1 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-5862 Page 91 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.8L1;4 (35) 
015230 104 063 000 -ASCII /03/<00> 
015233 .ASCII <0O0> 
015234 s 116 s P.AHR: .ASCII /sNs/ 
otasas 101 i22 101 ‘ II /ARA/ 
O1 116 1 117 .ASCII / 
01524 115 127 -ASCII /* W/ 
01 122 11 124 -ASCII /RIT/ 
01 3 1 116 -ASCII /TEN/ 

° 127 117 -ASCII / WO/ 
015261 122 104 -ASCII /RD / 
015264 072 045 102 -ASCII /:88/ 
o1 066 000 ; II /16/<00> 
01 116 045 P.AHS: .ASCII /sNs/ 
01 101 i122 101 -ASCII /ARA/ 
01 116 104 117 . ASCII 

01 115 122 -ASCII /M R/ 
01 1 101 104 -ASCII /€AD/ 
01 127 117 -ASCII / WO/ 
01 122 04 -ASCII /RD / 
01 142 151 156 -ASCII /bin/ 

0 072 5 102 -ASCII /:88/ 
o1 1 066 045 -ASCII /168/ 
91 10 157 -ASCII /A o/ 
01 1 072 ASCII /ct:/ 

0 117 -ASCII /#06/ 

0 -ASCII <00O> 

0 116 045 P.AHT: .ASCII /sSNs/ 

0 10 104 125 -ASCII /ADU/ 
01 114 111 ASCII I/ 
015353 103 101 124 -ASCII /CAT/ 
01° 1 125 -ASCII /€ U/ 
erates 116 lil 124 -ASCII /NIT/ 
015 072 045 1 -ASCII /:8D/ 
015367 045 101 -ASCII /28A/ 
01 ig 040 101 124 ASCII / AT/ 
01 04 111 120 ASCII / IP/ 
tert 072 040 045 ASCII /: #/ 
ol 3 117 066 000 -ASCII /06/<00> 
015406 04 116 045 P.AHU: ASCII /sNs/ 
015411 101 115 117 -ASCII /AMO/ 
015414 105 -ASCII /RE / 
015417 124 110 101 -ASCII /THA/ 
01 11s 040 ASCII /N #/ 
01 ae | 061 045 SCII /Dis/ 
0154 103 040 104 ASCII /A D/ 
015433 111 106 1 SCII /IFF/ 
Staese 105 122 105 : II /€RE/ 
015441 116 124 ASCII /NT / 
01 111 120 040 ASCII /IP / 
015447 101 104 ASCII /ADD/ 
015452 122 195 123 : /RES/ 
015455 123 105 123 -ASCII /SES/ 
015460 000 000 -ASCII <00><00> 
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015711 


RD/RX EXERCISER 
PROTECTION TABLE 


P AIA: 


P.AIB: 


P.AIC: 


_—_— ee eee 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


AX-11 Bliss-16 V4.1-582 92 
DISK SUSERZ: (ML YNAR. 7RQ}2ROAHO. BL1;4 can) 


SEQ 0108 
Page 


ZRQAM1 
vo2.3 


015714 


oo 


RD/RX EXERCISER 
PROTECTION TABLE 


114 


P.AID: 


P.AIE: 


P.AIF: 





fult/ 


10-Oct-1985 09: 
10-Oct-1985 09: 


32: 
31:20 


06 


VAX-11 Bliss-16 V4.1-562 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.8L1;4 


SEQ 0109 
93 


(35) 


ee ee ee 


ZRQAM1 
vo2.3 


016155 
016156 


_——_—ee a -_ ——— = * - 
‘ °o 


RD/RX EXERCISER 
PROTECTION TABLE 


116 
040 


ee 


P.AII: 


LE 


SEQ 0110 
19-Oct-1985 09:32:06 VAX-11 Blies-16 Vv4.1-582 ege 94 
10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR . ZRQ)ZRGAHO.BL1;4 (35) 


°o eooco 
ee 








_— ee ek 


SE@ 0111 


“ASCII 
101 106 P.AIM: .ASCII /#AF/ 


RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-562 Page 95 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISKSUSER2:[MLYNAR.ZRQ)ZROAHO.BL1;4 (35) 
126 101 -ASCIZ /NVA/ 
111 104 -ASCII /LIO/ 
123 .ASCII / SE/ 
124 117 -ASCII /CTO/ 
110 . ASCII H/ : 
101 104 -ASCII /EAD/ ) 
000 ASCII /ER/<00> 
101 110 P.AIJ: .ASCII /#AH/ | 
101 104 ASCII /EAD/ | 
122 040 ASCII /ER / 
117 115 .ASCII /COM/ 
101 122 .ASCII /PAR/ | 
105 ASCII /E E/ 
122 117 ASCII /RRO/ 
ASCII /R (/ 
141 154 -ASCII /Vel/ 
ASCII /id / 
145 141 .ASCII /hea/ 
145 162 .ASCII /der/ 
157 ASCII / no/ 
146 ASCII /t f/ 
165 156 ASCII / 
051 000 -ASCII /d)/<00> 
101 105 P.AIK: .ASCII /#AF/ 
124 040 -ASCII /CT / 
12 0 -ASCII /OR / 
10 124 -ASCII /RCT/ 
125 116 . ASCII 
1 101 .ASCII /REA/ 
101 102 .ASCII /DAB/ 
105 040 ASCII /LE / 
104 -ASCII /- D/ 
124 101 -ASCII /ATA/ 
123 131 -ASCII / SY/ 
103 . ASCII 
111 115 -ASCII /TIM/ 4 
117 125 -ASCII /€0U/ 
000 -ASCII /T/<00> ° 
101 104 P.AIL: .ASCII /#AD 
124 101 .ASCII /ATA/ 
123 131 -ASCII / SY/ 
103 7) .ASCIT / 
117 124 . ASCII v/ 
106 117 -ASCII / FO/ 
116 1 .ASCII /UND/ 
050 1 -ASCII / (D/ 
164 141 -ASCII /ate/ 
163 171 -ASCII / sy/ 
143 040 -ASCII /ne / 
151 155 -ASCII /tim/ 
157 165 ASCII /eou/ 
051 000 S /¢)/<00> 


—_————e 


ee: ee —_ 


017066 
017071 
017074 


RD/RX EXERCISER 
PROTECTION TABLE 





ee ee ee 





SE@ 0112 
VAX-11 Bliss-16 V4.1-5 


10-Oct-1985 09:32:06 82 
DISK $SUSER2: [ML YNAR . ZRQ)ZRQAHO.BL1;4 (35) 


10-Oct-1985 09:31:20 


PAIN: -ASCIT 


P.AIO: - ASCII /SAR/ 


P.AIP: ASCII 


P.AIQ: .ASCII 


7 
*. 
a 
So = wen ewe 
ee ne eee ee 


ZRQAM1 
vo2.3 


017077 
0 


°o ° 

ra ~ 
b> tp tte ee ee! 

i 

uw 

ro 


RDO/RX EXERCISER 
PROTECTION TABLE 


111 124 
040 065 
2 040 
131 124 
0 123 
103 124 
122 123 
000 
101 1 
123 113 
116 ahs 
122 115 
124 124 
104 
122 04 
103 124 
103 117 
122 125 
124 1 
000 
101 117 
105 04 
131 115 
117 114 
105 103 
040 105 
122 117 
000 000 
101 124 
117 
131 115 
117 114 
105 103 
0 105 
122 117 
000 
101 124 
122 105 
0 123 
115 102 
114 040 
103 103 
105 122 
117 122 
101 106 
125 122 
123 131 
102 117 
040 105 
103 040 
122 122 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


VAX-11 Bliss-16 V4. 


SEQ 0113 


97 
DISKSUSER2 [ML YNAR, ZROTZROAHO.BL1;4 8°33) 


— ee ee se 


Se 





SEQ oa 


ZRQAMN1 RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Blies-16 V4.1-582 98 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISKIUSERS. CL YNAR: FRaIZROAHO. 6L1;4 ee 35) 
017333 117 122 000 .ASCII /OR/<00> 
017336 045 101 106 P.AIW: .ASCII /s#AF/ 
017341 111 126 105 SscI SIVE/ 

7344 040 123 131 ASCII / SY/ 
017347 115 102 117 .ASCII 0/ 

17 114 040 105 -ASCII /L E/ 
01735 103 103 -ASCII /CC / 

7 122 122 -ASCII /ERR/ 
017363 117 122 ASCII /0OR/<00> 

7 5 101 123 P. AIX ASCII /#A 
017371 111 130 ASCII /1IxX / 
017374 123 131 115 -ASCII /SYM/ 
017377 102 117 114 -ASCII /B80L/ 

17 040 103 ASCII / EC/ 

17 103 105 ASCII /C E/ 
017410 122 122 117 ASCII /RRO/ 
017413 122 000 000 -ASCII /R/<00><00> 
017416 045 101 123 P.AIY: .ASCII /s#AS/ 
017421 105 126 105 ‘ II /€VE/ 
017424 116 123 II /N S/ 
017427 131 115 102 : II /YMB/ 
0174 117 114 ASCII /OL / 
01743 105 103 103 ASC /ECC/ 
017 040 1 122 II / ER/ 
017443 122 117 122 /ROR/ 
017446 000 000 -ASCII <00><00> 
0174 045 101 105 P.AIZ: .ASCII /#AE/ 
017453 111 107 110 -ASCII /IGH/ 
017456 +a 123 ASCII /T $/ 
017461 131 115 102 ASCII /YMB/ 
017464 117 114 -ASCII /OL / 
017467 105 103 103 .ASCII /ECC/ 
ot reae 040 1 122 -ASCII / ER/ 
0174 122 117 122 .ASCII 
017500 000 000 -ASCII <00><00> 
01 045 101 103 P.AJA: .ASCII /#AC/ 
01 117 122 122 -ASCII /ORR/ 
017510 105 103 124 -ASCII /€CT/ 
017513 ee 102 114 ASCII / 
or saae 1 040 -ASCII /€ E/ 
017521 122 122 117 ASCII 
01 122 040 111 .ASCII /R I/ 
017527 116 040 105 -ASCII /N E/ 
01 103 103 0 -ASCII /CC / 
01 1 111 105 .ASCITI / 
01 114 104 -ASCII /LD/<00> 
01 .ASCII <00> 

101 125 P.AJB: .ASCII /#AU/ 
017547 116 111 124 ASCII /WIT/ 
0175 123 117 ASCII / S0/ 
0175 124 127 ASCII /FTW/ 
017560 101 122 105 ASCII /ARE/ 





FT SL ST ~_——_ 


ooo ooo 


RD/RX EXERCISER 
PROTECTION TABLE 


P.AJE: 


P .AJH: 








400 / 
BYT/ 
c/ 









10-Oct-1985 09:32: 
10-Oct-1985 09:31: 


/ 
4$/<00><00> 
/ v4 


7OUN/ 
4T/<00><00> 
/8AN/ 


SEQ 0115 
-1-562 Page 
: (ML YNAR . ZRQ)ZRGAHO.BL1;4 (35) 


ee 





RO/RX EXERCISER 
PROTECTION TABLE 





10-Oct-1965 09:32:06 
10-Oct-1985 09:31:20 


P.AJI: 


P.AJJ: 


P.AJK: 


P. AJL: 





VAX-11 Blies-16 V4. 
OISKSUSER2: {ML MLYNAR. 


1-562 
ZRQIZROAHO .BL1;4 


one 0886 
0" 35) 


ee ee —= 















| ZRQAMI RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliee-16 v4.1-Se2 Pp 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20  DISK¢USER2:(MLYNAR ZRQ)ZROAHO.6L1,4 "cas 
ososse «Ct(i‘akKBOt«skaS—i(iéNOD pty 
920261 113 116 124 tise /INT/ 
920; 1 116 7ERN/ 
20267 101 114 040 sa / 
9207 104 101 124 
220. 101 040 123 
203¢ 124 122 125 
2036 103 124 125 | 
320% 105 C00 ee 
920: 045 101 104 P. AJM: 
920 111 126 
203: i?) its 
205. 101 116 104 
aoe i af 
116 157 
040 162 145 ; 
165 160 157 : 
163 145 ; 
tas 1$3 040 -ASCT! 
iS 1356 143 .ASCT: 
133 133 ; Hit /let/ 
145 $51 0CO ASCII @) 
~-ASLLI 
045 101 103 P.AJN: ASCII 
1 116 - ASCT! / 
12 117 114 -ASCI} / 
bho ina i “ASCIE 7 4 
105 103 -ASCII po. 
105 104 -ASCIT /TED/ 
ce 4 bed - 
i iii 123 CT! py 
111 117 -ASCII /SI0 
= a 
11? ia ‘ASEHE 7n0T/ 
i. 6 tt -ASCEL 70CD/ 
122 117 "ASCII p~¥ 
000 ‘ SCI. /R/<OO><O00> 
- ASL. 
16 040 105 ; mw E/ 


tt NED 


ee eS tgs 


ZROAM1 

vo2.3 

020506 122 122 
020511 122 040 
020514 115 151 
029517 055 163 
Gaones 145 153 

000 

020526 045 101 
020531 117 123 
020534 040 122 
020537 101 104 
02054 127 122 
02054 124 105 
020550 122 105 
020553 104 131 
020556 104 125 
020561 111 116 
020564 057 102 
020567 124 127 
020572 105 116 
020575 124 122 
020600 116 123 
020603 105 122 
020606 000 000 
020610 045 101 
020613 122 111 
020616 105 040 
020621 114 117 
020624 113 040 
0 7 122 117 
020632 117 125 
020635 000 

020636 045 101 
020641 117 123 
020644 040 122 
020647 103 105 
020652 126 105 
020655 040 122 
020660 101 104 
020663 040 102 
020666 124 127 
020671 105 116 
020674 123 105 
020677 124 117 
020702 123 000 
0207 045 101 
020707 122 111 
020712 105 040 
020715 105 124 
020720 103 124 
0207235 104 040 
0207 122 122 
020731 122 000 
0207 045 101 


RD/RX EXERCISER 
PROTECTION TABLE 


117 


P.AJQ: 


P.AJS: 


P.AJT: 


SE ee ee ee ee 


10-Oct-1985 09 
10-Oct-1985 


/R/<00><00> 
/@AC/ 


A le 


: 32:06 


09:31:20 


AX-11 Bliss-16 V4.1-582 
DISKSUSER2: (MLYNAR. TRO} ZROAHO. BL1;4 


SEQ 0118 
Page 102 
09" 35) 


[ool aol onl aoe all eel od 
SS ST od ahead 
“won eeQuc 


RURVRNVRVBVOOOE 
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oOo ao he ee be ee be ee be pe pe pe he pe pe 
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seneessneeeseeeesecaes 
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SEQ 0119 


RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-S82 Pane 30 
PROTECTION TABLE 10-Oct-1985 09:31:20  DISKSUSER2:(MLYNAR.ZRQ]ZROAHO.BL1:4 8° 35) 
116 124 
117 114 
105 122 
104 105 
105 103 
105 104 
120 125 
133 105 
117 122 
123 D4 
124 105 
120 ~—Ss« 101 
111 124 
3 105 
122 117 
101 102 P. AJU: 
104 040 
114 117 
113.040 
125 103 
105 123 
106 135 
114 131 
122 i 
114 101 
105 104 
101 102 P.AuV: 
117 103 
122 111 
111 105 
040 117 
040 4~=s 055 
040 116 
124 040 
040 102 
104 040 
114 117 
113 
101 122 P.AJW 
120 114 
103 105 
105 116 
040 106 
111 114 
122 105 
101 103 P.AuY: 
116 124 
117 114 
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SaResRese 


geeseegseeeees, 
RERRRRES 
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Phy ttt 
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SEQ 0120 
Pp 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-5862 age 1 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZROAHO.6L1;4 (35) 
105 i22 
124 111 
105 117 
124 000 
101 105 P.AJZ: 
105 

117 120 /LOP/ 

7 120 4E/<57>/P/ 
1035 113 /ACK/ 
124 
105 101 
940 105 
122 117 
040 050 
141 162 
164 171 
157 162 
164 151 
145 157 
164 051 
000 
101 105 P.AKA 
126 105 
117 120 /LOP/ 
057 120 4E/<57>/P/ 
103 113 /ACK/ 
124 / 
122 111 
105 
122 122 
i22 04 
120 141 
151 164 
040 157 
040 164 
iS5 145 
165 164 
101 103 P.AKB 
116 124 
117 114 
105 122 
122 117 
040 101 
104 040 
101 115 
120 101 
111 124 

0 105 
122 117 
000 
101 103 P.AKC: 
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ZRQAM1 
vo2.3 
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sesseesesssse 
445 annnetcictetciete a 
SRP Ste See 


=e Oo 


% 
~ 
on 
- 
Ououw 


i 
pe 
Be 

~ 


021680 


RO/RX EXERCISER 
PROTECTION TABLE 


ee ee et 


10-Oct-1985 
10-Oct-1985 


09 
09 


VAX-11 Bliss-16 v4 
DISK $USER2: [ML YNAR 


«1 
Z 


-582 
RQ )ZRGAHO.BL1;4 


SEQ 0121 
P 


10 
rec 35) 


LL LLL LLL ALLL ELL! OL LL LE LLL LL CL. OL LE OC CC LC TC OT ee el tt te te 


or 


a ee tt 





A Gina semmameatitie te: neater 


SEQ 0122 


ZRQAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 106 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: [MLYNAR. ZRQJZRGAHO.6L1;4 o9e 35) 
021655 125 122 105 -ASCII /URE/ 
021 000 -ASCII <00><00> 
raters 10 110 P.AKH -ASCII /#AH/ 
02166 117 12 124 -ASCII /0ST/ 
021670 0 10 103 ASCII 
021 103 10 123 -ASCII /CES/ 
021676 123 040 124 -ASCII /S T/ 
021701 111 115 105 -ASCII /IME/ 
117 125 124 -ASCII /OUT/ 
021707 050 110 -ASCII / CH/ 
021712 151 147 150 -ASCII /igh/ 
021715 145 1 040 -ASCII /er / 
154 145 166 -ASCII /levw/ 
021723 145 040 -ASCII /el / 
160 162 157 -ASCII /pro/ 
021731 164 157 143 .ASCII /toc/ 
157 040 .ASCII /ol / 
021737 44 145 160 -ASCII /dep/ 
021742 145 156 144 -ASCII /end/ 
021745 145 156 164 .ASC /ent/ 
021750 051 000 -ASCII /)/<00> 
Oot ree 045 101 103 P.AKI: .ASCII /#AC/ 
02175 122 105 104 -ASCII /RED/ 
021760 111 124 ASCII /IT / 
021763 114 111 115 -ASCII /LIM/ 
111 124 040 -ASCII /IT / 
021771 105 1 103 ASCII /€XxC/ 
021774 105 104 -ASCII /E€ED/ 
021777 105 000 -ASCII /€0/<00> 
101 121 P.AKJ: ASCII / 
102 i125 ASCII /-BU/ 
022010 123 040 115 -ASCII /S M/ 
i3 101 123 124 SCII /AST/ 
022016 105 122 040 .ASCII /ER / 

1 1 122 122 .ASCII RR/ 
02202 117 122 000 -ASCII /0R/<00> 
7 -ASCII <00O> 

101 103 P.AKK: .ASCII /#AC/ 

022033 117 116 124 -ASCII /ONT/ 

122 117 114 II / 

022041 114 105 122 II /LER/ 

022044 106 101 ASCII / FA/ 

022047 124 101 114 -ASCII /TAL/ 

022052 105 122 II / ER/ 

022055 122 117 122 ASCII /ROR/ 
02 000 -ASCII <00><00> 

101 111 P. AKL: II /#AI/ 

022065 116 123 124 ASCII T/ 

022070 122 125 103 ASCII /RUC/ 

022073 124 111 117 .ASCII /TIO/ 

116 040 114 -ASCII /NL/ 

022101 117 117 120 -ASCII /O00P/ 

124 111 .ASCII / TI/ 


SS Sg sss ln ss stl I -~eleeeee 


—— 


——ae = 


ee 


ZRQAM1 
voe.3 


022107 


RO/RX EXERCISER 
PROTECTION TABLE 
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P.AKP: 


= - -— 


SEQ 0123 
VAX-11 Bliss-16 V4.1-5 


10-Oct-1985 09:32:06 ege 107 
DISK SUSER2: [MLYNAR., FRaIZROAHO. BL1;4 oe? 35) 


10-Oct-1985 09:31:20 


—— a 








a 


SEQ 0124 


RO/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-582 Page 108 
PROTECTION TABLE 10-Oct-1985 09:31:20  DISK#USER2; [MLYNAR, ZROIZROAHO.8L1,4 8% 4e8 
102s«114 ASCII /ABL/ 
040 103 SCII /E C/ 
116 124 ASCII /ONT/ 
117-114 ASCII /ROL/ 
122 ASCII /LER/ 
ASCII <00> 
101 103 P.AKQ: ‘ASCII /#AC/ | 
116 = 124 ASCII /ONT/ 
117, s«114 ASCII /ROL/ 
1 122 "ASCII /LER/ 
122 101 ASCII 7 RA/ 
105 “ASCII. 7M E/ 
122 »©117 “ASCII /RRO/ | 
ASCTI /R (/ 
th ae ASCII /Non/ 
141 ASCII /-pa/ 
151 ASCII /rit/ 
051 000 "ASCII /y)/<00> 
101s Al P.AKR: ASCII 7#AI/ 
111 124 “ASCII /NIT/ 
123 = 105 "ASCII. / SE/ 
125 105 “ASCII /QUE/ 
103 105 “ASCII /NCE/ 
105 = 122 ASCII / ER/ 
117. «132 “ASCII /ROR/ 
"ASCII <00> 
101 = 110 P.AKS: ASCII /sAH/ 
107 = 110 “ASCII /IGH/ 
122 "ASCII /ER / 
105 126 ASCII /LEV/ 
114 "ASCII 7EL / 
122 s«17 ASCII /PRO/ 
i237 =: 103 ASCII /TOC/ 
114 040 ASCII /OL / 
116 103 “ASCII. /INC/ 
115-120 ASCII /OMP/ 
124 = 1 ASCII /ATI/ 
111 Ss "ASCII /BIL/ 
124 131 "ASCII /ITY/ 
105 122 "ASCII. 7 ER/ 
117. —s« Aa "ASCII 7 
-ASCII <00> 
101 120 P.AKT: ASCII /sAP/ 
122 107 "ASCII y 
057 ~—s-:120 SCII /€/<57>/P/ 
114 ~=:114 ASCII /OLL/ 
110 = 101 SCII / HA/ 
127 ASCII /RDW/ 
122 105 SCII /ARE/ 
101 ASCII / FA/ 
114 = 125 ASCII /ILU/ 
105 000 "ASCII /RE/<00> 
101 «115 P.AKU: ASCII /sAM/ 


re ere ne —— 


a eee ee 
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RD/RX EXERCISER 
PROTECTION TABLE 
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SEQ 0125 
10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 age 109 
10-Oct-1985 09:31:20 DISK $USER2: (ML YNA2. TRG} ZROAHO. BL1;4 09" 35) 


ZRQAM1 
vo2.3 
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ia 


RD/RX EXERCISER 
PROTECTION TABLE 





P.AKZ: .ASCII 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


/R/<00><00> 


7E 
/STE/ 
4/R/<00><00> 
/#AS/ 


VAX-11 Bliss-16 V4.1-562 il 
DISK $SUSER2: (ML YNAR . ZRQ)ZRQAHO.BL1;4 (35 


Pee0gcR08 
cats 


Nearer Qudcd 


SUSSSRRRSSORSORSGCSSRRCRRS 


Riot 
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SEQ 0127 


RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 ege i111 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK$USER2: (MLYNAR .ZRQ)ZRGAHO.8L1;4 (35) 
106 101 -ASCII / FA/ 
114 125 -ASCII /ILU/ 
105 0 -ASCII / / 
i23 -ASCII /- S/ 
122 111 -ASCII /ERI/ 
114 111 -ASCII /ALI/ 
105 122 -ASCII /ZER/ 
1 05 -ASCII <57>/0E/ 
1 122 -ASCII / / 
101 114 -ASCII /IAL/ 
105 ASCII /IZE/ 
22 -ASCII /R R/ 
107 111 -ASCII /€GI/ 
124 105 -ASCII /STE/ 
-ASCII /R/<00><00> 
101 123 P.ALC: .ASCII /#A 
101 124 -ASCII /TAT/ 
115 -ASCII /E M/ 
103 110 -ASCII /ACH/ 
116 105 -ASCII /INE/ 
1 101 ASCII / FA/ 
114 125 ASCII /ILU/ 
ASCII / / 
127 II /- W/ 
117 116 ASCII /RON/ 
110 ASCII /G H/ 
i122 -ASCII /ARD/ 
101 i122 -ASCII /WAR/ 
126 . ASCII V/ 
122 123 -ASCII /ERS/ 
117 116 -ASCII /ION/ 
-ASCII <00><00> 
P.AKV: .WORD P.AKW 
-WORD P.AKX 
.WORD P.AKY 
WORD P.AKZ 
-.WORD P.ALA 
-WORD P.ALB 
-WORD P.ALC 
116 045 P.ALO: .ASCII /sNs/ 
132 122 -ASCII /AZR/ 
101 040 -ASCII /QA / 
05 126 -ASCII /DEV/ 
106 124 -ASCII / FT/ 
.ASCIT 
132 065 -ASCII /#2Z5/ 
101 040 .ASCII / / 
116 -ASCII /ON / 
116 111 II I/ 
04 ASCII /T #/ 
04 ASCII /Z2s8/ 
124 ASCII /A T/ 
124 ASCII /ST / 
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SEQ 0128 


RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-S562 Page 112 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR. ZRQ)ZRGAHO.BL1;4 (35) 
060 061 -ASCII /001/ 
123 125 -ASCII / SU/ 
040 060 -ASCII /8 O/ 
060 040 -ASCII /00 / 
103 072 , II /PC:/ 
045 117 : II / #0/ 
000 -ASCII /6/<00> 
116 045 P.ALE: .ASCII /sNs/ 
132 122 .ASCII /AZR/ 
101 040 -ASCII /QA / 
104 . ASCII 
1 122 -ASCII / ER/ 
040 . ASCII 
132 065 -ASCII /#2Z5/ 
101 040 -ASCII /#A / 
116 040 -ASCII /0ON / 
116 111 .ASCII 
040 045 -ASCII /T #/ 
062 045 -ASCII /Z28/ 
040 -ASCII /A T/ 
124 -ASCII /ST / 
060 061 -ASCII /001/ 
123 125 -ASCII / SU/ 
040 -ASCII /8 0/ 
060 -ASCII /00 / 
103 072 -ASCII /PC:/ 
04 117 -ASCII / #0/ 
000 -ASCII /6/<00> 
116 045 P.ALF: .ASCII /sNs/ 
132 122 -ASCII /AZR/ 
101 -ASCII /QA / 
06 124 .ASCII /SFT/ 
105 -ASCII / ER/ 
. ASCII 
132 065 -ASCII /#8Z5/ 
101 -ASCII /#A / 
116 -ASCII /0ON / 
116 111 .ASCII 
040 5 . ASC: /T &/ 
062 045 -ASCII /Z28/ 
040 124 -ASCII /A T/ 
124 -ASCII /ST / 
060 061 -ASCII /001/ 
123 125 -ASCII / SU/ 
040 060 ; II /68 O/ 
060 040 ‘ Ir /00 / 
103 072 ; II /PC:/ 
045 117 ASCII / #0/ 
045 116 -ASCII /60N/ 
-ASCII <00> 
116 045 P.ALG: .ASCII /sNe/ 
111 057 -ASCII /AI/<57> 
040 i122 -ASCII /0 R/ 


024030 


000000 
177777 
000000 
020040 
020040 


RO/RX EXERCISER 

PROTECTION TABLE 
i21 125 
123 124 
106 +h 
114 1 
045 116 
000 
123 064 
116 000 
101 040 
040 000 
101 oS2 
000 000 


HWPTS1.LBN: : 
HWPTEO.LBN: : 


me 
= 


eit 


10-Oct-1985 09:32:06 
10-Oct-1965 09:31:20 


77200? <00> 

<<L SNDHW-L SHWLEN>/2> 
-5630 

154 


o ° 


<<L SNDSW-L $SWLEN>/2> 
40 


143 


VAX-11 
DISK SUSE 





fhe 


awe ee ee —_ 


SEQ 0129 
MLYNAR. TRO] ZROAHO. 6L1;4 


-16 V4.1 


en me ~~ ee 





oe ~_—_— -. 


SEQ 0130 
RO/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliee-16 v4.1- Pace 114 
PROTECTION TABLE 10-Oct-1985 09:31:20  DISK$USER2:[MLYNAR.ZRQ)2ZROAHO.BL1,4 8" a45 





ay gate oe Sika 


es 


— — one ee ee ee ee eee — LE NAS ems eee -- 


ZRQAM1 RD/RX EXERCISER 
v02.3 PROTECTION TABLE 
004636 BUFF .ADDR:: 
.BLKW 
004656 BUFF OWN: : 
-BLKW 
004666 Ioo0a: : Tone 
004676 I00Q.IN 
* BLKW 
- 004700 I0DQ.0uT:: 
“BLKW 
004702 ENTRY .REASON: : 
| 004703 EOP.FLAG: : 
004704 DUP.FLAGS: : 
004706 CCTLR:: .BLKW 
004710 COISK:: .BLKW 
004712 CUOFF:: .BLKW 
004714 CTLR.CNT:: 
— BLKW 
004716 DUR: : .-BLKW 
004722 Q@I0::  .8LKB 
-EVEN 
004724 FREE .MEM. ADDR: : 
004726 BYTS.PER. GIO: : 
004730 ST.CODE: : ns 
004732 SB. CODE: se 
004734 STEP:: .BLKW 
004736 OF .RC:: .BLKW 
740 SA.REG:: .BL 
004742 CMD.T ‘oe 
004744 NEX:: BLKW 
004746 CRN.LOW: : a 
004750 CRN.HIGH: : x 
004752 TEMP1:: .BLKW 
004754 TEMP2:: .BLKW 
CREDIT .BAL: 
004760 NEXT. PKT_USE:: 
004761 S:: .BLKB 
762 MINUTES 
-BLKB 
-EVEN 
004764 CLK. TICKS: : 
_BLKW 


SEQ 0131 


10-Oct-1985 09:32:06 AX-11 Bliss-16 V4.1-582 Page 115 
10-Oct-1985 09:31:20 DISKSUSER2: EMLYNAR: FRO ZROAHO. BL1;4 (45) 
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172100 


RO/RX EXERCISER 
PROTECTION TABLE 


BITO6== 


FERO.LBN: : e 
FER1.LBN: : 
CLK. PRESENT: : 





& a. bay ~~ —- 


eee ee ee — — —_ - —__ — -—-—— 


10-Oct-1985 09:32:06 
19-Oct-1985 09:31:20 


8 


oo FF F- Fr CO fe 


LSRPT, LSINIT, LS$CLEAN, LSLAST 
LSHARD, L . L$AU, LSAUTO, LSSOFT 
TSPTHV, LSDVTYP, LSDESC, T1 


SEQ 0132 


VAX-11 Bliss-16 v4.1-5862 


DISK SUSER2: [ML YNAR . ZRG )ZRGAHO.BL1;4 


aE SE sn 
RN Sen = ne ane enn 


ZRQAM1 
vo2.3 


RD/RX EXERCISER 
PROTECTION TABLE 


BITOS== 





EF .RESTART== 
a. 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


. ZRQ JZROAHO .BL1;4 


he 
a 35) 


-—— em eee 


_—— -—_—— = = A em we 


ZROAM1 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-S82 Pege 118 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20  DISKSUSER2:(MLYNAR.ZRQ)ZROAHO.8L1:4 "(345 
000474: HWQ2=« AAG 
000504’ HWQS== P’ AAH 
000546: HWQ4=« P “AAT 
000564: HWQS== Pp’ AAJ 
000334: HWQ6A== P AAK 
706" HWQ6B == P" AAL 
000762" HWQ7A== P’ AAM 
001032: 78=« P AAN 
001102’ HWQ8== P" AAO 
001160’ HWQQ== P AAP 
001260° SuQies Pp’ AAQ 
1302: SuQ2- - PAAR 
| 001362" SuQ4== P "AAS 
| 3404' SWwQ7== P'AAT 
| 001456' SUQ9== P "AAU 
| 1532" SWQ10== P AAV 
001576° SWwQ11*= P AAW 
1630° SWQ12== P AAX 
001726' SWQ1 == P AAY 
SWQ14== P"AAZ 
SWQ15== PABA 
002126' SWQ17*= ABB 
002224' SWQ19== Pp" ABC 
002314' SWQ20== P" ABD 
402' SWQ21== P.ABE 
SWQ22== P' ABF 
002526’ SWQ232=s P.ABG 
; SWQ24== P ABH 
002644 ' SWQ26== "ABI 
002706’ SWM1=< "ABU 
003004! SWQ27== P" ABK 
3030’ SWQ28== P" ABL 
003100' NULL == "ABH 
003102! DBHS== "ABN 
003130' DBM12== P "ABO 
0BM15== P| ABP 
003234" OBM18== P “ABQ 
3306' 0BM19== ABR 
003372° OBM20== Pp" ABS 
DBM21== Pp’ ABT 
3530: DBM22== "ABU 
003574" OBM23== P ABV 
3632° DBM25«= P| ABW 
3700' DBM26<= P| ABX 
003732! DBM27== P" ABY 
004" OBN2BA== P "ABZ 
044° OBM26B== P'ACA 
004104! DBM29== P “ACB 
004152" OBM32== Pp’ ACC 
004226" 0BM101== PACD 
354: DBM104== PACE 
004316' DBM105== P "ACF 
004354° DBM107== P' ACG 


ZRQAM1 
vo2.3 


RD/RX EXERCISER 
PROTECTION TABLE 





10-Oct-1985 09: 
10-Oct-1985 09: 


Bb 
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tats 
8398 


geeseeresee 
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oO 
w 


BABRARERESSEEESES 


VRVVVVVVVVVVVVVVVVVVVVVVVVVVVVVUVUVVUUVUVVUUDUDVV0UDD 
PP PP PP 
RRSGSSSA RONEN 
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:20 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: [ML YNAR .78Q)ZRQAHO.BL1;4 


SEQ 0135 


P 119 
oo" 35) 


TT A 





A a 


SEQ 0136 


ZRQAM1 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 P 120 
vo2.3 PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $SUSER2: (MLYNAR. FRAIZROAHO. 6L1;4 oee 35) 
Gi1074' E6D.13<= P.AET 
011126’ 4e= P.AEU 
1166' E6D.18-= P.AEV 
011222’ -19«= P.AEW 
| 011502" EBD. 24== P AEX 
1356’ EH.O== P.AEY ) 
011414’ EH.1== P.AEZ 
| 452° EH.2== Pp" AFA | 
011512’ EH. 3== P.AFB 
1550° EH.4== P “AFC | 
011574’ EH.5== P. AFD 
011624’ EH.6== P.AFE | 
11654' EH.7== P AFF 
011704' EH.8== P.AFG 
11740' EH.9== P.AFH 
011770’ EH.10== P.AFI 
012020’ EH.12== P.AFJ 
012054’ EH.13<= P.AFK 
012126’ ERR .00== P.AFL 
12662‘ ERR .COD== P.AFM 
012720' ELG.00-= P.AGC 
13334' ELG.FMT== P.AGD 
013350' EX.SA== P .AGK 
13366' EX.SC== P. AGL 
013416’ EX.SB0== P.AGM 
013422’ EX.S6== P .AGN 
13444' EX.CMD== P .AGO 
0 ‘ EX.RD== P.AGP 
013474' EX. WRT== P .AGQ 
13504’ EX.CMP== P.AGR 
13520’ EX.ONL== P.AGS 
013532’ EX.ACC== P.AGT 
544’ EX.OP== P .AGU 
013550’ EX .BB2== P.AGV 
013616’ EX .6B12== P . AGW 
013670' EX .BBU2== P .AGX 
13750' EX .LBN2== P.AGY 
014010’ EX.PBN2== P.AGZ 
’ EX.LBR2== P.AHA 
014116’ EX.LB6W2== P.AHB 
014166' EX. RBN2== P. AHC 
14226' EX.CBC== P.AHD 
014272' EX.CBR== P. AHE 
° EX .CB6W== P . AHF 
014416' EX .6C== P.AHG 
014472' EX .80== P . AHH 
014550° EX.BDOR== P , AHI 
0 ‘ EX.B0W== P.AHJ 
014730' EX .RP== P. AHK 
015016' EX .WRD== P . AHL 
?) . EX. TIM== P .AHM 
0 ; EX.LB== P . AHN 
015130' XXi3-= P.AHO 


I it. 


015152’ 
015206’ 


RD/RX EXERCISER 
PROTECTION TABLE 


XX23e= 


SC .POE== 
SC .ROY== 





10-Oct-1985 09:3 
10-Oct-1985 09:3 
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SEQ 0137 
2:06 VAX-11 Bliss-16 V4.1-582 Pege 121 
1:20 DISK $USER2: [MLYNAR .ZRQ)ZRGAHO.BL1;4 (35) 


ZRGAM1 
vo2.3 


020610' 
020636’ 
020704 ' 
020734 


File 


RO/RX EXERCISER 
PROTECTION TABLE 


Library 


DISK $SUSER2: [MLYNAR .ZRQ]ZRQAHO.L16;10 


10-Oct-1985 09:3 
10-Oct-1985 09:3 
SC.CLK== P.AJQ 
SC .RSP== P.AJR 
.SUR== P.AJUS 
SC .PSP== P.AJT 
SC .REP== P .AJU 
SC .NBB== P.AJV 
SC .REF == P.AJW 
CNTR .ERR== P.AJX 
X.ERR== P.AKV 
DF .MSG== P.ALD 
HRD .MSG== P.ALE 
SFT .MSG== P.ALF 
HRD. SUB== P.ALG 
SPACE4== P.ALH 
CRLF == P.ALI 
DASH== P.ALJ 
ASTERISK== P. ALK 
DFPTBL== L $HWLEN+2 
SFPTBL== L¢SWLEN+2 
PSECT SUMMARY 
Words Attributes 
5156 ma. 2S » CEC. BEL. CON 
1303 RW. ODO , GBL, REL. CON 
Statistics 
ws2----- Symbols -------- Pages 
Total Loaded Percent Mapped 
411 178 43 2i 


COMMAND QUALIFIERS 


BLISS/PDP11 ZRQAHO.BL1/LIST=ZRQGAHO.LS1/0BJECT=ZRQAHO .0B1/SOURCE =PAGE : 53 


2:06 
1:20 


EE EE ne ee 


VA -562 
DISK S$USER2: (MLYNAR. TRO} ZROAHO. BL1;4 


SEQ 0138 


P 122 
o9* 35) 


X-11 Blies-16 V4.1 


ee ee oe ae ene em 


Processing 
Time 
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eeeerees 
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Seeee 
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RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1 


582 
PROTECTION TABLE 10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR. 7RO}ZROAHO. 6L1;4 


module ZRQAM2 ( 
Stitle ‘RD/RX EXERCISER’ 
ident 


* ‘yo2.3', 

eddrese ing_mode mode (absolute) ° 

1 eee (noeis) 
begin 
sebttl ‘DECLARATIONS’ 
library ‘ZRGAHO.Li6’; ' RORX EXERCISER GLOBAL LIBRARY 
!MMM require ‘BLSMAC.REQ' ; ! DIAGNOSTIC SUPERVISOR I_IBRARY ZZZ 
require re HSAXAO. BLB‘ ; ! DIAGNOSTIC SUPERVISOR LIBRARY ZZZ 
forward rou 


NEX TRAP : + LSISR novelue, 
_O1 : novalue, 
EMS_TIM : novelue, 

'MMM EMS_DBN : NOVALUE, 'ZZZ 
EMS_BLK : NOVALUE, 'ZZZ 
SET_CPAR : novalue, 

SET_UPAR : novalue; 


external 

CST : blockvector [MAX cTLR. CST_LEN, word] field (CST_FIELDS), 

ME CONTROLLER STATUS TABLE 
CST_ADOR : ref block fest “lene word] field (CST_FIELODS), 

ER STATUS TABLE SS OF “CURRENT” CONTROLLER 
DCT : blockvector [MAX CTLR, OCT_LEN, cond} field (OCT_FIELDS), 

! ORIVER CONTROLLER TABLE 

DCT_ADOR : ref block ‘(OCT LEN, word] field (OCT FIELDS), 

OF “CURRENT” DRIVER CONTROLLER TABLE 
RDRX_ADOR : ref rdrx ‘tield aS REG) 

ADDRESS OF “CURRENT” CONTROLLER 


IRDRX_ADOR : ref rdex Preis Pg? G), 
ICE SS OF INTERRUPTING CONTROLLER 
BST : BLOCKVECTOR [MAX UNITS, 2, WORD), '222 
CONTAINS LONS (CHI + LO FIELDS) FOR SEQUENTIAL '7277 
O TRANSFER FOR EACH '222 
TALLY : vector [MAX_ TAP # TALLY_LEN, word] field (T_FIELDS), 
! STATISTICS TABLES 
T_ADDR : ref block (TALLY LEN, word) field (T_FIELDS), 
s “A reeaTistics TABLE (TALLY) ) £08 CURRENT UNIT 
MMM DUPPKT : BLOCK (357. WORD] F te Lo D CDP PeraetDS). of BUFFER 222 


' 
“MRM RECEIVE END CMD 
TRK_SGN : VECTOR [MAX_UNITS, "BYTE. SIGNED}, !CURRENT TRACK DIRECTION 222 
ROM_CNT : WORD 'NO OF RANDOM NOS \KEEP 222 
RANDOM "VECTOR (ROM_LEN WORD). *RANDOM NO TABLE Tt OGETHER 222 
C_ERR_TBL : blockvector {MA C_ERR_LEN, word) field (C_ERR SP IELOS). 
‘ STATISTSCE™ TABLE FOR CONTROLLER ERRORS” 


Z2Z 


ee ee me 


SEQ —, 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V Page 
vo2.3 DECLARATIONS 10-Oct-1985 09:31:20 DISK$USER2: CH YNAR: +R} ZROAHO. BL1;4 oor 36) 
; 5444 1 MSCP_PKT : blockvector [PKT CNT, PKT_LEN, word] field (PKT_FIELDS), 
; 8445 1 6 T POOL 
; 5446 1 IPKT_ADOR : ref block (PKT_LEN, word] field (PKT_FIELDS) 
; 5447 1 ADDRESS OF AN MSCP PACKET CINTERRUPT PROCESSING) 
; 5446 i PKT_USE : vector CPKT_CNT te eigned). 
; 5449 1 !“MSCP P KET Pp LOCATION TABLE 
ls sone i RETPKT : blockvector 1 RETURN” PAC ACRET boot word) field (RP_FIELDS), 
. 
; 54 1 RP_USE : vector [RP_ CNT 
| ; 5453 1 T RETURN P TP Ob ALLOCATION TABLE 
’ 5454 1 RP_INDX : word ¢ RETURN PACKET PO ACKE NDEX 
; 3439 i RP_ADOR : — block (RP _LEN, word) ce, CRP FIELDS). | 
i 
; $457 1 ELOG_PKT : blockvector EP_CNT + _LEN, word) field (EP_FIELDS), 
; 5458 1 ERROR LOG * PACKET” SAVE AREA | 
: $459 i BUFF_ADOR : vector [hax.8 ! TABLE OF I/0 BUFFER pDESCRIPTORS | 
; $460 i BUFF_OWN : vector [(MAX_6UF ENT. byte, signed), ! 1/0 BUFFER OWNERSH P CONTROLLER NUMBER ) | 
; $461 1 I00@ : vector (IODQ@_LEN, byte), ' I/0 DONE QUE RSet CULAR QUEUE OF RETPKT INDECES 
: 8462 1 IOD@_IN : word, ' I70 DONE QUEVE IN POINTER 
; S463 1 word, ' I/0 DONE QUEVE OUT POINTER 
s 5464 i ENTRY REASON : byte, ! CURRENT OPERATOR COMMAND 
s 5465 1 _FCAG : byte, : ENO - OF -PASS FLAG | 
> S466 1 FL : GORD. !DUP FLAGS 
s S467 1 CCTLR : word, ! NUMBE “C T* CONTROLLER 
; S466 i SK : word, ' CURRENT DISK ADDRESS CRD/RX DISK NUMBER) 
s 5469 1 F : word, ! CURRENT UNIT CST OFFSE 
; $470 1 CTLR_CNT : word ' TOTAL NUMBER OF CONFIGURED CONTROLLERS 
; S471 1 DUR : vector (MAX_UNITS, byte). ' DROP UNI 
‘ 547 1 g70 z yester i _CTLR, byte), : R OF OUTSTANDING QI0s PER CONTROLLER 
; S473 1 ! START OF FREE 
; 8474 i Byte -PER “@I0 : word, ! SIZE (BYTES) OF AN I/O BUFFER 
s S475 1 ST_C : word, ' CURRENT STATUS CODE 
; 847% 1 Cc : word, ' CURRENT -CODE 
s S477 1 STEP : word, : STEP IN INIT 
s $476 1 -RC : signed word, ! OFFSET (CO OR 2) T AD I 
; 8479 1 SA_REG : word, -! STOR OR SA REGISTER READS AND WRITES 
; 85460 1 CMD_TIME : word, Me © UE CIN SECONDS) 
> S481 1 NEX”: word, ! NON-EXISTENT MEMORY TRAP INDICATOR 
; 8482 1 _LOW : word, ae 8 F OF LAST COMMAND 
: 8483 1 CRN_HIGH : word, :¢ F NUMBER (HI ORDER) 
; 8484 i TEMP1 : WORD, ‘TEMPORARY STORAGE WD USED IN 8GNCLN 'Z2Z 
; 8485 i TEMP2 : WORD, ‘TEMPORARY STORAGE WD USED IN BGNCLN '222 
: 5466 1 CREDIT_BAL : word, ' CREDIT SALANCE 
; 8467 1 NEXT_PKT_USE : byte, t POINTER TO NEXT ENTRY IN PKT_USE TABLE 
: $486 i 5: byte, ' TIME OF DAY CHOURS ) 
; $4869 1 MINUTES : byte, ! TIME OF DAY CMINUTES) 
+ 8490 i CLK_TICKS : word, ' TIME OF DAY (L LINE -CLOCK TICKS) 
: S491 1 _LBN : word, 'LO LBN ADR OF THE “FORCED ERROR” BLOCK 222 
; 8492 1 FER1_LBN : word, 'HI LON ADR OF THE “FORCED ERROR” BLOCK 222 
: $493 1 CLK_PRESENT : byte, ‘ FLAG INDICATES IF LINE-CLOCK PRESENT 
: 5494 i HOE-FLAG : byte, ' FLAG INDICATES IF “HALT ON ERROP“ FLAG SET 
; $495 il FORCED _ERROR : byte, ! “FORCED ERROR” DETECTED IN LAST EAD 
; 549% i FER_LON : word, ' LBN OF THE “FORCED ERROR” BLOCK 





ee ee 


SEQ 0141 











ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss- age 125 
vo2.3 DECLARATIONS 10-Oct-1985 09:31:20 DISKSUSER2: (ML ETMAR: TRO IZROANO. BL1;4 (36) 
1 ! BYTE COUNT OF THE “FORCED ERROR” BLOCK 
1 : byte. ! EXERCISER INITIALIZATION COMPLETE 
: : byte, ' FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED 
1 'MMM 
i MMM 
1 TYPER : VECTOR frat _UNITS, “ono ‘READ I/0 COUNTER ZZZ MoM 
1 TYPEW : VECTOR [MAX UNITS WORD ‘WRITE I/0 COUNTER 222 MMM 
1 AL_IN_PROGRESS or {Max WORD), !FLAG SET TO BALANCE 1/0 TYPES 222 eM 
1 FORCE UR : VECTOR vec roe UNITS, “WORD. * MMM 
1 CSR_MEM : WORD newt 
4 : WORD 
i X : SIGNED WORD, ‘CURRENT MESSAGE PACKET INDEX 222 
i Te WORD, !PATTERN FOR DUP WRITES 222 
1 eg DUPPKT : WORD, ‘DBN BYTE COUNTER 27272 
1 ' OF WINCHESTER UNITS 272 
1 ‘BUS REQUEST PRIORITY LEVEL 222 
L 'SIGNIFIES DUP TYPE ERROR 222 
: 17 1 
i8 1 vector (11). 
5519 i rPTi, 
5 1 RPT2. 
BET RPTS. 
i RPT4. 
i RPTS, 
1 RPTS. 
S336 i APTS. 
3539 1 RPT9. 
3 6 1 RPT10, 
1 RPT1i. 
i RPT1i2. 
ii RPTi3, 
i RPT14, 
1 RPT15. 
: 1 RPT16 
5 1 Z  RPTi7, 
i 12722 ~=RPTIB. 
7 i !'227Z2 RPTI9. 
9 i MSG_01, 
i EGS_01, 
i €8S_01. 
1 £B0_10. 
343 i EBD_12, 
5 i EBD-i8. 
3546 i EBD 719. 
5 i EBD_24, 
35e5 + ERR~OO. 
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DECLARATIONS 





HWQ6A, 
HWQ6B , 
HWQ7A, 

78 


TBL_SUC : 


VAX-11 Blies-16 V4.1-5 


10-Oct-1985 09:32:06 82 
DISKSUSER2: : (ML YNAR . ZRQ)ZRGAHO.BL1:4 


10-Oct-1985 09:31:20 


!ZZZ 
!ZZZ 


vector (17) initial CNULL, SC_SDI, SC.CON, NULL. SC_ODUP, NULL, NULL, 
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SEQ 0145 


RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-582 Page 129 
DECLARATIONS 10-Oct-1985 09:31:20 OISKSUSER2:[MLYNAR.ZRQ)ZROAHO.BL1;4 (36) 
2 apap NULL, SC_ONL, NULL, NULL. NULL L . NULL, NULL, SC_SON), 
TBL_SUC : vector [19] initial (NULL, SC_SDI, SC_CON, NULL. SC_OUP, NOLL, NULL 
NULL, SC_OML, NULL, NULL. NULL. NULL. NULL, NULL, NULL, SC_SON, SC_INR, SC_INV). “Hote 
TBL_OFL : vec £9 initiol (SC_UNK, SC_VOL, SC_IOP, NULL, SC_DUP, NULL, NULL, 
TOL_MFE : caahae th initiel (SC_EER, NULL. SC_ISH, SC_OST, SC_EC9, SC_576. 


SC_FCT, SC_ECC. SC_RCT, SC_ 
tor initiel 


la inial TOL _WPT : vec {3}) initiel CMULL, SC_SuP, 
TBL_WPT : vector [4] initial (NULL, SC SWP. SC Hue SC_SAF), ona 
TBL_OAT : vector [16] initiel (SC_FE2, NULL st 1 see 5082; SC_EC9, MULL, NUL 
SC_ECD. SC_EC1, SC_EC2. SC_EC3. SC_EC4 see gECS S¢ ECE SC_EC7, SC EC), 
TBL_HST : vector (5) initiei (NULL. SC ODA s¢.068, “BARD. 
TBL_CNT : vector [4] initial (SC_CTO, §C se. $6s, ih. 
TBL ORV : vector 9 initial (NULL, SC_SRT, ota $c_ sco os RDY, SC_CLK, SC_RSP, 
TBL_BRC : vector [5] initial (SC_REP, SC_NBB, SC_REF, SC_REF, SC_REF); + pane 
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ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-Se2 130 
vo2.3 TYPE AND DESCRIPTION 10-Oct-1985 09:31:20  DISKSUSER2:(MLYNAR.ZRQ]ZROAHO.BL1-4 (37) 
; $727 4 Ssbttl ‘TYPE AND DESCRIPTION’ 

$ $726 1 

: $729 1 EQUALS; 

; 8731 1 DEVTYP (sesciz‘RQDX or RUXSO’); ! NAME OF DEVICE SUPPORTED BY PROGRAM 

; §732 1 DESCPIPT (Seeciz’RD/RX EXERCISER’ ); : TEST DESCRIPTION 


a ed 


- ee Ee —~—- =—- = 
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ZRGAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Pege 131 
vo2.3 HARDWARE PARAMETER CODING SECTION 10-Oct-1985 09:31:20 DISK SUSER2: [ML YNAR .ZRQ)ZROAHO.BL1;4 (38) 
: Lb : Sebttl ‘HARDWARE PARAMETER CODING SECTION‘ 
: 
F 5735 1 Se 
$ 5736 1 ' THE HARDWARE PARAMETER CODING SECTION CONTAENS MACROS 
; 5737 i ! THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
i 5736 1 : NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
: 5739 1 ! INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
i $740 1 ! MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
5 $741 i ! WITH THE OPERATOR. 
$ 574 1 $- 
; 574 1 
: Lp : BGNHROD ; 
| 8 
7 5746 i GPRMA (HWQ1, 0, 0, #6'160000', so0'177777', YES, 1); ' IP ADDRESS 
i 8 5747 1 GPRMA ert <2. 0. #0'4', to'774', YES, 1); ! VECTOR 
’ 5748 1 GPRMD (HWQ3, 4, 0, s0'377', #0'0', #o'7', YES, 1); ' BR LEVEL 
; $749 i GPRMD (HWQ4, 6, D, #0'17', tdecimal'0O’, Coane § is‘, YES. 1); ! RORX DRIVE NUMBER 
: 5750 i !MMMGPRML (HWQ10, 6, #0’'000040', YES, i); !ALSO RUN DUP EXERCISER 222 
‘ 5751 1 'MMMXFERF (CNODU); ' 22ZZ 
$ $752 1 'MMMNGPRML CHWQ11. 6, #0'000100', YES. 1); ‘WRITE DIAG AREA 22ZZ 
$ 5753 1 !'MMMSL CNODU); $ 2ZZ 
’ 5754 1 GPRML CHWQS. 6. #0'000200', YES. 1); 'TEST ENTIRE CUSTOMER AREA? 222 
$ 5755 i XFERT (T0Q8); : ‘BR IF YES Z2ZZ 
i 5756 1 GPRMD (HWQ6A, 8. 0, #0'177777', sdecimal’'O', #0'177777', YES, 1); ! STARTING LBN LO Z2ZZ 
$ 5757 1 GPRHD CHWQ6B. 10, 0, #0'177777'., sdecimal'0O', so’ 177777', YES, 1); ' STARTING LBN HI Z2ZZ 
: 5756 1 GPRMD CHWQ7A, 12, 0, #0'177777', GPSATLO (8). %o0'177777', YES. 1); ' ENDING LBN LO Z2ZZ 
5 5759 1 GPRMD CHWQ7B, 14, 0, #0'177777', sdecimal’0'. %0'177777'. YES, 1); ' ENDING LBN HI ZZZ 
: 5760 1 $i. (T0Q8); ¢ Z2Z 
$ 5761 1 GPRML (HWQ8, 6, #0'100000', NO, 0); ! WRITE ON CUST DATA AREA 
; 5762 1 XFERF CHWDONE); ' NO - DONE 
$ S763 1 GPRML CHWQ9, 6, #0'100000', NO, 1): ' #* WARNING / CONFIRM 
t 5764 1 $L CHWDONE); 
$ 5765 1 
$ 5766 1 ENDHRD ; 
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RD/RX EXERCISER 
SOFTWARE PARAMETER CODING SECTION 


sebttl ‘SOFTWARE PARAMETER CODING SECTION’ 


-= 
~ 
= 


os 
WITH THE OPERAT 

BGNSFT; 
GPRMD (SWQ24, 10 + #0'177777', 0, 2359, YES. 1); 
GPRMD (SWQ1, 0, 0, #0'177777', 0, 65535, Se 
GPRMD (SWQ2, 2, D, #0'177777', 0, 99, s ; 
GPRMD (SWQ17. 8, 0. #0'177777', 0, 100, YES, 1); 
CPRML (SWQ15, 4, _CST,. YES. 1); 
GPRML (SWQ20, 4, SWF_FER, YES, 1); 
GPRML (SWQ23. 4, SWF_BLK, YES, 1); 
GPRML (SWQ21, 4, SWF_HRD, YES, 1); 
GPRML (SWQ@22, 5 SWF _SFT, YES, 1); 
!'MMMGPRML (SWOQ25, 4, SWF_TRY, YES, 1); 
GPRML (SWQ4, 4, SWF_RDM, YES. 1); 
XFERF (SW1); 
XFER CSW2); 
$. (CSW1); 
GPRML (SWQ19, 4. SWF_SEQ@, YES, 1); 
$L (SW2); 
GPRML (SWQ7, 4, SWF_CRC, YES, 1) 
GPRML (SwQ26, 4, SWF_APT, YES. 1); 
DISPLAY (SWM1); 
GPRML (SWQ9, 4, SWF_CWC, YES, 1); 
XFERF (SW3); 
XFER (SW4); 
$. CSW3); 
GPRML (SWQ10, 4, SWF_HWC, YES, 1); 
$L (SW4); 
GPRML CSWQ11, 4, SWF_UDP, YES, 1); 
XFERF (CSW5); 
XFER (SW6); 
$. (SWS); 
GPRMD (SWQ12, 6. D, #0'177777', 0, DP_CNT, YES, 1); 
XFER (SW7); 
$l. CSW6); 
GPRMD (SWQ13, 12, D, #0'177777', 1, MAX_UDP_CNT, YES, 1); 
'MMMGPRMD (Swai4, 14, 0, #o' 177777! s. 8 “go! 177777 ‘, NO, 12); 
tags FS 4, 14, 0, #0'177777', O, go! 177777', YES. 12); 
$L ; 
GPRM. (SWQ27, 48, #0'000001', YES, 1); 
co 50, #o' 000001', YES. i): 

; 


10-Oct-1985 
10-Oct-1985 09:31:20 


TWARE PARAMETER TION CONTAINS MACROS 
THAT ARE USED BY BY mt HE SUPERVI VEsOR TO BUILD B P- tone i THE 
MAC TIONS BUT ARE 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW a VISOR TO ESTABLISH COMMUNICATIONS 
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SEQ 0146 
VAX-11 Bliss-16 V4.1-5862 Page 132 
DISKSUSER2: rEMLYNAR: ZRQ JZRGAHO.BL1;4 (39) 


ENABLE DIAGNOSTIC TRACE 
S ME 


TART TI 
ERROR LIMIT 
TRANSFER LIMIT | 
PERCENT RD RATI 
CLEAR STATISTICAL TABLES ? 

REWRIT OCKS WHEN “FORCED ERROR” BIT SET? 

T BAD-BLOCK TYPE ERRORS WITH ‘HOE’ FL 
HALT ON H ORS WITH ‘HOE’ Ay SET? 


WI 
HALT ON SOFT ERRORS WITH ‘HOE’ FLAG SET? 
COUNT EACH RETRY AS ANOTHER SOFT-ERROR? 
RANDOM SEEK MODE ? 
IF NO, OO NEXT QUESTION 


RANDOM OR SEQUENTIAL SELECTION OF DRIVES 
READ-COMPARES AT CONTROLLER ? 
UNNING UNDER -T. MONITOR? 
one ee QUESTIONS ONLY 


Y APPLY . 
WRITE-COMPSRES AT CONTROLLER ? 
IF NO, DO NEXT QUESTION 


ZZZ 


CHECK WRITES AT HOST BY READING ? 
USER-DEFINED DATA PATTERN ? 

IF NO, DO NEXT QUESTION 

SELECT PRE-DEFINED DATA PATTERN 
DONE 


NO. OF WORDS IN USER DATA PATTERN 
PATTERN VALUES 
PATTERN VALUES MMM 


! Manufacturing Test (Reduce Duty Cycle) 
! Enable Host Memory Parity MMM 


a at te - 
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SEQ 0149 
RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 age 13 
SOFTWARE PARAMETER CODING SECTION 10-Oct-1985 09:31:20 DISK $USER2: (ML YNAR . ZRQ)ZRQAHO.BL1;4 (40) 


Sebttl ‘REPORT CODING SECTION’ 


° 


HE REPORT CODING SECTION CONTAINS THE 
PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


eerertere 
z= 


BGNRPT; 


local 
CUR_PRIORITY : word; 


GETPRI (CUR_PRIORITY); 
!122Z SETPRI (PRIO4); 'Z2Z 
SETPRI (.BRLEVEL); '22Z 


PRINTS CRPT6); 
incr CTLR from O to MAX_CTLR - 1 do 


begin 
SET. CPAR €.CTLR); 
incr DISK from (O + OF _UN) to (CUNITS_PER_CNTR - 1) « UNIT_SIZE + OF_UN) by UNIT_SIZE do 


begin 
SET. UPAR € .DISK); 


Md .CST_ADOR (.DISK + OF _DATA, D_PRES) eql PRESENT 
en 


in 
PRENTS CRPT7 


PRINTS conte 67 NOOR (.D0ISK + OF_DATA, D_DISK_NUM), CST [.CTLR, .DISK + OF_NAME_O, D_NAME_0)); 
. T_ADOR {Tor READS HI. .T_ADOR (TOT_READS_LO}, 
.T_ADOR (MTOT_BYT_RED], .T_ADOR [TOT_BYT_RED_HI), .T_ADOR [TOT_BYT_RED_LO)); 

PRINTS CRPTS 
. T_ADOR {Tor WRITES_HI}, .T_ADOR [TOT WRITES 0}. 

vatnie“tiite MTOT_BYT_WRT), .T_ADDR (TOT_BYT_WRT_HIJ, .T_ADDR [TOT_BYT_WRT_LO)); 


.T_ADOR {ERR_HRD_SEK}. -T_ADDR [ERR_HRD_DAT), .T_ADDR [ERR_HRD_DRV), .T_ADDR [ERR_HRD_HST)., 


Ct tt tai. 
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SEQ 0150 
ZRGAM2] RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-5862 Page 134 
vo2.3 REPORT CODING SECTION 10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR. TRO} ZROAHO. BL1;4 99° 40) 


-T_ADOR [ERR_SFT_SEK], .T_ADOR [ERR_SFT_DAT], .T_ADOR [ERR_SFT_ORV), .T_ADDR [ERR_SFT_HST)); 


$ 
end; 


if .CST (.CTLR, STATE] eql PRESENT ! 
then ? 


PRINTS CRPT10); 
PRINTS (RPT11, .C_ERR_TBL [.CTLR, C_ERR_HRO), .C_ERR_TBL [.CTLR, C_ERR_SFT)); 


end; 
SETPRI (.CUR_PRIORITY); 


!MMMIF .RD_COUNT NEQ O {IF THERE IS A WINCHESTER ZZZ 
!MMMTHEN !THEN OUTPUT EXTRA LINES Z2ZZ 


! PRINTS DUP DATA 


4 


r Paiste 


| 
INTSCRPT14), 


So 
DZ 
+ 
w 
+“ 
aS 
3UV 
~~ 
ores 
VWs 
aga 


R FROM O TO MAX_CTLR-1 DO 


SET CPAR( .CTLR) 
INCR DISK “FROM OM (OsOF_UN) TO (3*UNIT_SIZE+OF_UN) BY UNIT_SIZE DO 


SET ey DISK 
IF ->CST_ADDRT . disk, D_TYPE] EQLU RD_S1 and .CST_ADDR [.DISK, D_PRES] eql PRESENT 


N 
PRINTS (RPT16, 
.L$LUN, .CST_ADDR [. DISK. D_DISK_NUM 
T_ADOR {T_DBN_RD], .T_ADOR [T_BLK nb). .T_ADDR ({T_OBN_WT], .T_ADDR [T_BLK_WT)); 


IF ,CST_ADORE .OISK, D_TYPE] EQLU RD_S2 and .CST_ADDR [.DISK, D_PRES) eql PRESENT 
PRINTS C(RPT18, 
.L$LUN, .CST_ADDR [.DISK, D_DISK_NUM 
eT gAdor (T_ DEN-RG _RD), .T_AOOR [T_BLK RoR. .T_ADOR [T_DBN_WT), .T_ADDOR [T_BLK_WT)); 
By 
PRINTS (CRLF); 


3333439334333343 


NNNNN 
NNNN 
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™N 


PRINTS (CRLF); MMM 
EMS_TIM (); !MMM 


ENDRPT ; 


SP SP SP SP SP GP SP SP SP SF SP SP GP GP SP GP SF GP Fe SP GP GP SP SP SP SP SP GP SP SP SP SP GP GP GP GP GP ES Ge Gs GS GS GP Se GS GD Ge GF Ge es os os 
HVMVUVVUNVVNNUVUNVVUNNVUNVUNVNNVNVUNNVVUNNNNNNNNA UUW Sd PUUUUWWaU 


wee ee 
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ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bliss-16 V4.1-582 Page 135 
v2.3 REPORT CODING SECTION 10-Oct-1985 09:31:20  DISKSUSER2; TMLYNAR ZROIZROAMO.0L1,4 | ***c 45 
.TITLE ZRQAM2 RD/RX EXERCISER 
“IDENT /VO2.3/ 
-ENABL AMA 
- 900000 .PSECT $CODE$, RO 
000000 122 121 104 LSDVTYP: : 
CII /RQD/ 7 
000003 130 040 157 ASCII /X o/ 
162 040 122 ASCII /r R/ 
000011 125 130 065 “ASCII /UX5/ | 
000014 060 900 “ASCII /0/<00> 
oo00s6 122 104 057 L$DESC “ASCEI /RD/<57 | 
22% < > 
000023 122 130 “ASC 
900026 130 105 “ASCII /EXE/ | 
000031 122 103 111 “ASCII /RCI/ 
123 105 122 “ASCII /SER/ 
000037 000 ASCII <00> 
000042 000000C L$HRDLN: : 
. WORD <<<L $NDHRD-L$HROLN>/2>-1> 
000044 000031 GP$1 “WORD 31 . 
000050 1 “WORD 50000 
000052 177777 -WORD -1 
900054 001031 GP $2 ‘WORD 1031 
" WORD 
000060 "WORD 4 
000062 000774 -WORD 774 
000064 002032 GP$3:: {WORD 2032 
000066 “WORD HWQ3 
000070 000377 ‘WORD 377 
000072 “WORD O 
000074 600007 "WORD 7 
000076 003052 GP$4:: .WORD 3052 
000100 0000006 “WORD 
000102 000017 “WORD 17 
000104 000000 ‘WORD 0 
000106 000017 “WORD 17 
000110 003130 GP$S “WORD 3130 
000112 000000G "WORD HWQS 
000114 000200 “WORD 200 
000116 000000C $TOQ@B: .WORD <<<<$LTOQ@8-$T0Q8>#400>+4>+20> 
000120 004032 GP$6:: .WORD 4032 
000122 000000G “WORD 
000124 177777 “WORD -1. 
000126 000000 “WORD 0 
000130 177777 -WORD -1 
000132 005032 GP$7:: .WORD 503 — 
000134 0000006 “WORD 
000136 177777 “WORD -1 


© - © aaa 
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RD/RX EXERCISER 
REPORT CODING SECTION 


GP$13:: 


GP$i4:: 


GP$iS:: 


GP$ié6:: 


GP$17:: 
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HWQ9 

- 100000 

1004 

1 
<<<LS$NDSFT-LS$SFTLN>/2>-1> 
5052 

SWQ24 
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002130 
000000G 


040000 
002130 
000000G 


RD/RX EXERCISER 
REPORT CODING SECTION 


GPSis:: 


GP$19:: 


GP$20:: 


GP$21:: 


$SWi: 
$SWe: 
$LSW1: 


GP$2e2:: 


$LSWe: 


GP$23:: 


GP$24:: 
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2130 
SWQ4 


2 
<<<<$LSW1-$SW1>*400>+4>+40> 
<<< $LSW2-$SW2>4400>+4> 


<<<<¢ $LSW3-$SW3>2400>+4>+40> 
—o 


SW@10 


<<<<$LSW5-$SW5>4400>+4>+40> 
oe eee? 


3052 
SWQ12 


0 

25 

<<< $LSW7 -$SW7>2400>+4> 
1004 


6052 
SWQ13 


SS 
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AX-11 Bliss-16 V4.1-582 
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000454 177777 
000456 000001 

000460 

000462 027232 
— 000464 

000466 177777 

000470 
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$LSW7: 
GPS31:: 


GP$32:: 


LSNDSFT:: 
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a: sa ° I ; 
“igi acrcuend! 
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a 
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de * 
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OCT 


tT, T 
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SEQ dy 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 141 
vo2.3 REPORT CODING SECTION 10-Oct-1985 09:31:20 DISK $USER2: (ML YNAR.ZRQ)ZRQAHO.BL1;4 oe 40) 


.GLOBL SWQ11, SWQ12, SWQ13, SWwQ14, SwaiS 
-GLOBL SwQi7. swa19, SWQ20, SWQ21, SwQ22 
‘GLOBL 5SwWQ23. § s : , Swa28 
.GLOBL EH.0O, EH.1, af EH.3, EH.4, EH 
.GLOBL €H.6, EH.7, EH.8, EH.9, EH.10 
-GLOBL £H.12, EH.i3, SWM1, NULL, SWP.FLAGS 
.GLOBL LS$HIMEM, L$LUN, LSUNIT 


000001 ON== 1 
000002 OFF e= 
100000 BIT1i5== - 100000 
040000 BIT14== 
BIT13== 20000 
010000 BIT12== 10000 
zTil== 4000 
BIT10== 2000 | 
001000 BITO9== 1000 
BIT08== 400 | 
200 BITO7== 200 j 
000100 BITO6== 100 | 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 | 
000002 BITO1== 2 
000001 BITOO== 
001000 BIT9== 1000 
000400 BITS=-= 400 
000200 BIT7== | 
000100 BIT6-= 100 
000040 BITS== aD | 
000020 BIT4== 20 
000010 BIT3== 10 
000004 BIT2== | 
000001 BITO-- i 
000085 EF .NEW== 35 ! 
000034 EF .PUR== 
000040 EF .START== 40 
000037 EF -RESTART== 37 | 
000036 EF . CONTINUE == 
000340 PRIO7== 340 
000300 PRIO6== | 
000240 PRIOS== 240 
000200 PRIO4G== | 
000140 PRIO3S== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 | 
000000 100-= 0 
000004 EVL== 4 
000010 LOT== 10 
000020 &DR== 


— ee ee ee ee = ~ 


LL TT cee EE GSE tere se=tterste sss 


SEQ 0158 


ZRQAME RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 Page 1 
vo2.3 REPORT CODING SECTION 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZROAHO.BL1;4 (40) 

000040 IDvU-= 40 

000100 ISR== 100 

000200 UAM== 200 

000400 BOE == 400 

001000 PNT== 1000 

002000 PRI== 2000 

IXE== 4000 

010000 IBE== 10000 

020000 IER== 

040000 LOE== 40000 

100000 HOE == - 100000 

000044’ LSHARD== L SHRDLN-2 

000220’ .8SOFT== LSSFTLN-2 

-SBTTL LRPT REPORT CODING SECTION 

000516 .PSECT sCODES, RO 
000000 004137 C00000G LRPT: JSR R1, SSAVE4 ; 5819 
000004 104440 TRAP 40 ; 5836 
000006 MOV 2R4 ; #,CUR.PRIORITY 
000010 013700 000000G MOV BRLEVEL ,RO ; 5636 
000014 1 TRAP 41 
000016 012746 000000G NOV @RPT1, -( SP) : 5841 
000022 012746 000001 MOV #1, -( 
oceans 010600 MOV SP RO ; SP,« 
0000 TRAP 16 
000032 012716 @RPT2, CSP) ; 5842; 
0000 36 000001 MOV #1,-CSP 
000042 010600 MOV SP ,.RO ; SP,« 
000044 TRAP 
000046 012716 000000G MOV @RPTS.CSP) ; 5843 
po ee sy 000001 MOV #1,-(SP) 

010600 MOV SP ,RO ; SP, 
000060 TRAP 16 
000062 012716 000000G MOV ORPT4 CSP) 3 5844 
oooees 0127 000001 MOV #1, -(SP) 
000072 010600 MOV SP ,RO ; SP,« 
000074 104416 TRAP 16 
000076 012716 000000G MOV @RPTS CSP) : 564 
000102 012746 000001 MOV #1,-(SP) 
000106 010600 MOV SP ,RO ; SP, 
000110 TRAP 16 
000112 012716 MOV ORPTE, (SP) ; 5846 
000116 012746 000001 MOV #1,-(SP) 
000122 010600 MOV SP RO ; SP,« 
000124 104416 TRAP 16 
Coates 005002 CLR R2 ; CTLR 564 
0001 010216 i$: MOV R2,(CSP) ; CTLR,« $851) 
000132 004737 0d000000V JSR PC,.SET.CPAR 
000136 012703 000003 MOV ° ; #,D0ISK 5853. 
000142 010316 2$: MOV R3.CSP) ; DISK,« 5856: 
000144 004737 000000V JSR PC,SET.UPAR 


$$ el 


RD/RX EXERCISER 
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’ oe 
3 


oman 
Bae 


onset 
“-« 
P 
°o 
as wt fh lll 
tn 
et 


2 
; 


SEQ 0159 
P 


VAX-11 Bliss-16 V4.1-582 age i 
DISK SUSER2: [(MLYNAR. ZRQ)ZRGAHO.BL1;4 (40) 
; OISK,« 5859 
; CTLR,« 5864 
; OISK,« 
; SP, 
$ 5867 
| 
; SP,*s 
: = 


; SP,« 


000632 


: Routine Size: 
s Meximum stack 


— ne 


RD/RX EXERCISER 
REPORT CODING SECTION 


000012 3$: 


4$: 


000646 ' 
5$: 


000000G 
000001 
000000V 
000020 


206 words, Routine Base: 


depth per invocation: 


40 words 


_——— rt ee ee 


10-Oct-1985 tes bb > 


10-Oct-1985 09:31:20 
-( SP) 
47(RO),. (CSP) 
-(SP) 
46(RO), (SP) 
ORPTS, -( SP) 
#11, -(SP) 
SP .RO 
6 
064, 
#12,R35 
R3,04i 
2s 
R2. CSP) 
#1_6,-(CSP) 
PC ,BL $MUL 
(SP) 
CST+2CRO) 
@RPT10, (CSP) 
#1, -(SP) 
16 
R2,RO 
RO 


CSP) 
C.ERR.TBL+1(RO), (SP) 
C.ERR.TBLCRO). (SP) 
@RPT11,-CSP) 

#3, -(SP) 

SP RO 


16 
#10,SP 
R 


INC 2 
-WORD CLV!CLC 


BGT 
JMP 


ADD 
RTS 


5$ 

1$ 
R4,RO 
4 


OCRLF ,CSP) 
& ) 


1 
PC,EMS.TIM 
#20,SP 


$CODE$ + 0516 


SEQ ag 


VAX-11 Bliss-16 V4.1-562 14 
DISKSUSER2: TTMLYNAR: ZRQ )ZRGAHO.BL1;4 oF 40) 
; SP, 
| 2 
; *,DISK 5853 
3 ISK ,* 

; CTLR,« 5878 
j 
| 

$ 3882 
; SP,* } 
; CTLR,« sess 
é SP ,* 

3 5881 
; CTLR 4 
; CUR.PRIORITY,« — 
: 5921 
; SP,« 

; 592 
: 581 


| 
| 


_ ¢ Maximum stack depth per 


ee ee ee oe ee 





ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 

vo2.3 REPORT CODING SECTION 10-Oct-1985 09:31:20 
-SBTTL LSRPT REPORT CODING SECTION 

000000 004737 000516’ LSRPT:: JSR PC,LRPT 

000004 104425 TRAP 25 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: *sCODE$ + 1352 


invocation: 2 words 


; 5925 1 


SEQ 0161 
VAX-11 Bliss-16 V4.1-582 Page 145 


DISK $SUSER2: ([MLYNAR . ZRQ)ZRGAHO.BL1;4 (40) 


| 5922 


on 
uw) 


SP SP SP SP GE GE GP GP GP GP GP GE GE SP GE GP SP OF GP GP GP GP GP GP GP SP GS GP SP GP SP GP GP GP GP GP GP GP GD GP Ge Es GS GP EF Es GS Gs & GP Gs os Os 


VPUUUNVVUN UUUNNVUN UUUUUUNNUNNUUUUUS WUUINNNMNMMNNNMNNNNNNRe EY 





RO/RX EXERCISER 10-Oct-1985 09:32:06 


INITIALIZE SECTION 
sebttl ‘INITIALIZE SECTION’ 
BGNINIT; 
local 
DELAY_MULT : word, 
FLAG : byt e, 
: ye 
REF : ——_ (HWPT_LEN, word] field (HWP_FIELDS), 
IVE : byt 
BLANKS : “WORD I urbyie- ($0' 020040" ), 
HWPT_ADDRESS : yeh (MAX_UNITS, word); 
SETPRI (PRIO7); 


if READEF CEF_NEW) 
then 


in 
ENTRY_REASON = NEW_PASS, 
if mot BIT_TST (SWP_FLAGS, SUF_CST) 
CLEAR_TABLES = FALSE 
se 
CLEAR_TABLES = TRUE; 
end; 
if READEF (EF_START) 
then | 
Cet 
B 
ENTRY REASON » START; 
CLEAR~TABLES = TRUE; 


_VECT_OK = FALSE; 
INIT OCCURED = FALSE; 
end; 


Mh READEF CEF _RESTART) 


ENTRY_REASON = RESTART; 
CLEAR-TABLES = TRUE; 
t 


if READEF CEF_CONTINUE) 
then 


begin 

ENTRY_REASON = CONT; 

if not BIT_TST CSWP_FLAGS, SWF_CST) 
then 


10-Oct-1985 09:31:20 


!ZZZ 


Se eee _——— - 


AX-11 Bliss-16 V4.1-582 14 
DISKSUSERS. : (MLYNAR. FRAIZROAHO. BL1;4 O9F 41) 


SEQ 0162 
Page 


NO INTERRUPTS ALLOWED DURING INIT 


IS THIS A NEW PASS? 


IS THIS A START? 


IS THIS A RESTART? 


IS THIS A CONTINUE? 


eee eS a + SSS 


et. tt iti ti 


VUUUAUNUNVMVUNNUNUUUNUNNVUVUNNVNNNN WU S & dS WWW UUW WUD WU uF 





RD/RX EXERCISER 
INITIALIZE SECTION 


1 CLEAR_TAGLES = FALSE 
else 

CLEAR_TABLES = TRUE; 
end; 


if READEF CEF _PWR) 
then 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


ENTRY _REASON = PUR FAIL 
ADDR. JECT OK = 


I CURED 
CLEAR TABLES = TRUE; 
PRINTF (MSG_01); 


incr COUNT from 0 to 60 do 


pepir 

DELAY _MULT = 333; 
DELAY ( .DELAY “MULT); 
BREAK; 


: 
end; 
'SETVEC CO_TVEC, O_BRK, PRIO7); 


. 


THAT NOT MORE THAN MAX_UNITS HAVE BEEN SPECIFIED. 


if ,.L$UNIT gtru MAX_UNITS 
then 


in 
ERASE (1. EGS_01. EMS_01); 
DOCLN; 


+ 


ALL RUN-TIME CONTROLLER STATUS TABLES (CSTs) AReE ag 
LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES. 


if .ENTRY_REASON neq NEW_PASS 
then 


in 
SMRLLEST_DRIVE = 255; 


incr COUNT from 0 to ((MAX_CTLR * CST_LEN « 2) - 2) by 2 do 
(CST + .COUNT) = 0; 


MAKE SURE 
IF _THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR. 
(DIAGNOSTIC IS ABORTED). 


ee ee ~- 


SEQ — 


AX-11 Bliss-16 V4.1 


382 
DISK SUSER2: (ML YNAR . 7RQ}ZROAHO. BL1;4 


THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS AeO TO oO NEW_PASS. 


THEN 


oee 41) 


! ARE WE HERE BECAUSE OF POWER FAIL | 


! “POWER DELAY - WAITING” 
! WAIT APPROX. 60 SECONDS 


! BREAK FOR ACT 


! SET ODT TRAP VECTOR 


! LARGEST DISK NO. ALLOWED BY MSCP 


Se 





SEQ 0164 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 X-11 Bliss-16 v4.1-582 Page 148 
vo2.3 INITIALIZE SECTION 10-Oct-1985 09:31:20 DISKSUSER2; [ML YNAR  ZROTZROAHO.8L1:4 (449 
6032 incr UNIT from 0 to (.L$UNIT - 1) do ! LOOP THROUGH ALL UNITS 
Sosa if CHWPT_ADDRESS [.UNIT] = GPHARD (.UNIT, HWPT_REF)) neqa 0 ! IF HWP TABLE FOUND 
6035 then 
$0 if .HWPT_REF [HWP_DISK_NUM) lssu .SMALLEST_DRIVE ! FIND OUT THE SMALLEST DISK NUMBER | 
ren SMALLEST _ORIVE = .HWPT_REF [HUP_DISK_NUM); | 
iner UNIT from 0 to (.L$UNIT - 1) do ! LOOP THROUGH ALL UNITS 
if .HPT_ADDRESS [.UNIT} nega 0 ! IF HWP TABLE FOUND 


T_REF = .HWPT_ADDRESS [.UNIT]; 
incr CTLR from 0 to (MAX_CTLR - 1) do ! LOOP THROUGH ALL CSTs 
if .CST (.CTLR, IP_ADDR) eqle .HWPT_REF (HWP_IP_ADDR] 
then 
if .CST (.CTLR, (.HWPT_REF [(HWP_CISK_NUM] - .SMALLEST_DRIVE) *« UNIT_SIZE 
a * OF _UN + OF_DATA, 0_PRES) eql NOT_PRESENT 
en 
begin | ' IF EMPTY SLOT FOUND 
TE ( .HWPT_REF (HWP_DISK -NUM} - ,SMALLEST_DRIVE) * UNIT_SIZE + OF _UN; 
CST (.CTLR, .TEMP + OF DATA, D_ALL]) = .HWPT _REF (HWP_OIS 


CST (.CTLR, .TEHMP + OF_DATA, D_UNIT) = .UNIT; 


: copy DISK ADDR AND PROT BIT 


CST (.CTLR, .TEMP + OF_DATA, D_FATAL]) = FALSE; 
CST {.CTLR, .TEMP + OF _DATA, D_PRES) = PRESENT; 
IF .HWPT_REF (HWP_ENTIRE) E@L TRUE 'ZZZ IF DEFAULT TEST RANGE, 
THEN HWPT_REF [HWP_END_TRIK1) = ALL_ONES; 'ZZ7Z MAKE HI ADDR ALL ONES 
CST (.CTLR, Jee OF _BEG, D.BEGO) = 
F (Hue BEG_TRK] '22Z 
CST C.cTLA  TER® © OF Beet. Dp béci) - 1227 
.HWPT HWP BEG TRK1); 'Z7ZZ 
CST {.CTLR, .TEMP + OF _END. D_ENDO] = 'Z72Z 
.HWPT_REF (HWP END ND_TRK 1 '22Z 
CST (.CTLR, ,1e + OF_END1, D_END1) = 'Z2Z 
-HWPT _ F Come END_TRK1); '22Z 
CST [.CTLR, .TEMP + OF _NAME_O, D_ALL) = .BLANKS; !7Z7Z BLANK NAME 
CST [.CTLR, .TEMP + OF _NAME_2, D_ALL] = .BLANKS; !Z7Z7Z BLANK NAME 
CST (.CTLR, .TEMP + OF -DUPELAGS.. D_DBN] = 0 '222 
CST (.CTLR, .TEMP + OF _DUPFL NODUPMEDIA) = !222 
NOT (.HWPT * REF CHU Disk _DUPEX]); '22Z 


Si srerbtbheriiiiititiitttetiiiiiiisseterer 


1 


RD/RX EXERCISER 
INITIALIZE SECTION 


OOIAUNSUVEOSSIRME 


PARP ADHAAABDBAAMRAMAARARARDHAARARAARSRHUUUUUUA oP SUNN mu 


6 
61 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


1 
1 
1 
1 


~ 
GIN 








10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


CST (.CTLR, fap tee + DUPFLAGS, DUPWRITE) = 
T REF cous DISK -DUPUT > ); 
cst. [. CIR. er lee ¢ OF _COUNT, D_COUNT) = 0; 
Sods 
ho 3 
end 


begin 
PRINTF (CER_O1, .HWPT_REF [HWP_DISK_NUN], 


DUR [.UNIT] = DU_CONF; 
DODU (.UNIT); 

FLAG = FOUND; 
exitloop; 

end; 


if .FLAG eql NOT_FOUND 
then 


iner CTLR from 0 to (MAX_CTLR - 1) do 
if .CST {.CTLR, IP_ADOR) eqle 0 
then 


.HWPT_REF (HWP_IP_ADDR); 

CST (.CTLR. vec -ADDR} 2 

CST (.CiiLR, BR nee’ ha 
-HWPT 


TEMP = 
CST (.CTLR, "HERP | 


cs? tT ' -CTLR, IP_ADDR) = 


+ HUP REF ([HWP_BR_LEVEL 
K_NUM) - SMALLEST 


OF DATA; ALL) = 


D 
D 
OF DATA, - B- -FATAL) = FALSE; 


.HWPT_REF (HWP VECTOR 


ORIVE) * UNIT_SIZE + OF _UN; 
.HWPT_REF (HWP_DISK 


ee - _ 


SEQ 0165 


X-11 Blies-16 V4.1-5862 Page 149 
DISK sUSERE. : (MLYNAR. 7ROIZROAHO. BL1;4 ate tt 1) 
'ZZZ 
!ZZZ 
!ZZZ 


! OUPLICATE UNIT 


. HWPT _REF CHP IP _ADDR }) 


“BUPLICATE UNIT: X AT IP: KKK" 
CONFIGURATION ERROR 
OROP UNIT 


! IF NO IP MATCH TO EXISTING CST 


a ee - 


! LOOP THROUGH EACH CST 
! IF EMPTY CST FOUND 


4 Copy DISK ADDR AND PROT SIT 


CST (.CTLR, . TEMP + OF _DATA, D_UNIT) = .UNIT; 
CST (.CTLR, .TEMP + 
CST [.CTLR, . TEMP + OF _DATA, D_PRES] = PRESENT; 
IF .HWPT_REF [HWP git! EQL TRUE 'ZZ2Z IF DEFAULT TEST RANGE. 
THEN HWPT_REF [HWP_END 1) = ALL_ONES; !Z7ZZ MAKE HI ADDR ALL ONES 
CST (.CTLR, ,1e OF pe D_BEGO) = $ZZZ 
REF “tHe BEG_TRK); '22Z 

CST {.CTLR, tee toy 8 D_BEG1i) = '222 

.HWPT_REF weet G_TRK1i); 1222 
CST (.CTLR, Tew OF END, D ENDO) = '272Z 

: F’ coue ENO_ TAK]; 'Z722Z 
CST (.CTLR, Tene ¢ OF _END1, D_END1) = '222 

: F CHP MD _TRK1i); '222 
CST (.CTLR, .TEMP + OF _NAME_C, D_ALL] = .BLANKS; 'ZZ7Z BLANK NAME 
CST {.CTLR, . TEMP + OF _NAME_2, D_ALL] = .BLANKS; 'Z2Z7Z BLANK NAME 
CST (.CTLR, .TEMP + OF. DUPFLAG D_DBN '222 
CST C{CTLR, ‘TEMP » OF “DUPFLAGS, MOOUPHEDIC) = i222 


a le ssssaenessssessestshssessntesenttsnenttnneenessseseeeree--swerereeseer sen eee . — 
SP SP SP SP GP GP GP SP SE SP GP GP GP GP SP GE GP CO Ge GP GP GP SP SP EP SP SD GP SP GP GP GP GP GP GP EP GS GP SP GP EP GP GS ES GD GD ES OS GP OS Os os 


BWUMUMUUUNNNN UWS & & PH PUUUUUUNNM NV UUW BUUAAARUUUURARAAG 


RD/RX EXERCISER 
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NOT (.HWPT_REF (HWP_OISK_ ROUTE) 


CST [.CTLR, Tene OF _DUPFL 
T_REF (HWP DISK “DubuTI 
cst f. CTLR. oer + OF COUNT; D_COUNT) = 0; 1227 


ong Mh 
end; 


if .FLAG eql NOT_FOUND 

then 
PRINTF (CER -02, MAX_CTLR); 
DUR [. “4, DU_CONF ; 
= (.UN 

end; 

end; 
CONF IGURATON CHECK FOR LEGAL ell MIX BECAUSE WE HAVE DIFFERENT 


DRIVES : THE RDS1, RDS2, AND R 
(NEEDED? ) 


-ENTRY_REASON eql NEW_PASS 


begin 
incr UNIT from 0 to (.LSUNIT - 1) do 
GPHARD (. 


UNIT, HWPT_REF); 


incr CTLR from 0 to (MAX_CTLR - 1) do 


peg'e 
{.CTLR, U_CNT) = O; 


incr OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR me 3, # UNIT_SIZE + 


CST (.CTLR, .OFFSET + OF_DATA, D_STAT] = OFFL 
end; 


end; 
if .ENTRY_REASON eql START 
then 


peal” 
CTLR_UCNT = O; 


incr CTLR from 0 to (MAX_CTLR - 1) do 


i? .CST [.CTLR, *P_ADDR) neaqe O 
then 


10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 
10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 


!ZZZ 


SEQ 0166 


IF EMPTY CST FOUND 
IF NO EMPTY CST FOUND 


“MORE THAN X IP ADDRESSES.” 
CONFIGURATION ERROR 

DROP UNIT 

IF NO IP ADOR MATCH IN CST 

IF GPHARD RETURNS A HWP TABLE 


END OF “NON NEW_PASS” INIT 


i DUMMY GPHARDs FOR NEW PASS 


REINITIALIZE UNIT COUNT 


OF —e let ch SIZE do 


EACH UNIT? AS OFFLINE 


150 
mente +6) 


! NUMBER OF CONFIGURED CONTROLLERS 


: IF CONTROLLER IS PRESENT 





ss A A Le eT nner ete ae " 


ae ee ee ll _—™ ———- << 





SEQ 0167 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 X-11 Blise-16 V4.1 Page 
vo2.3 INITIALIZE SECTION 10-Oct-1985 09:31:20 Disksusere. [MLYNAR. SRO TEROAHO. 6L1;4 (41) 
6291 CTLR_CNT = .CTLR_CNT «+ 1; ! INCREMENT CONTROLLER COUNT 
6195 MEMORY (FREE_MEM_ADOR); ! GET START OF FREE MEMORY 
6195 end; ! END OF “START” INITIALIZATION 
| 6197 ts 
6198 ‘ CLEAR STATISTICS TABLES : 
6199 $- | 
| 6201 iner UNITS from 0 to. MAX -UNITS - 1 do ! CLEAR CURRENT STATISTICS 
6202 incr COUNT from 0 to TALLY_CLEAR - 1 do 
6203 TALLY [. UNITS @ TALLY_CEN + .COUNT) = 0; 
if .CLEAR_TABLES ! IF CLEAR TABLES ON EVERY PASS 
incr UNITS from 0 to MAX_UNITS - 1 do 
iner COUNT from TALLY_CLEAR to TALLY _LEN - o do INITIALIZE TOTALS 


TALLY [.UNITS # TALLY_LEN + .COUNT) = 
if .CLEAR_TABLES 
then 
incr CTLR from 0 to MAX_CTLR - 1 do 


C BRR TBL [.CTLR, C_ERR_HRD) = 0; ! INITALIZE CONTROLLE!: ERRORS 
C“ERR- ~TBL {.CTLR, C_ERR_SFT} = 0; ‘ 


peeneneeesseees 
BASU SUES — 


HP VNUNVVUNNNNUNNNNVUNANNNA UUUNUNVNNNNANNNNNPNNN Wu U 


LINE CLOCK = 0; 


frie. bee, . : INIT I/0 DONE QUEUE POINTERS 
CRN_HIGH = 0; : INIT COMMAND REF R 


CRN_C ERENCE 
SETPRI (PRIOO); ' SET PROGRAM PRIORITY TO 0 


6219 ts 
6220 MISCELLANEOUS INITIALIZATON 
$555 iner CTLR from 0 8 (MAX_CTLR - 1) do ! INIT NO. OF OUTSTANDING Q@I0s 
6224 Q@I0O [.CTLR) = 
6226 incr COUNT from 0 to (RP_CNT - 1) do * INITIALIZE RETURN PACKET POOL 
6227 RP_USE [.COUNT] = -1; 
6209 i? .C’.K_PRESENT * STOP CLOCK IF PRESENT 
62 
6231 
eSss 
6234 
6235 
36 


ROR 
be 


ENDINIT; 


-GLOBL LSDLY 
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000340 


wr 
te 


4$: 


78%: 
8$: 





10-Oct-1985 09:32:06 
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LINIT INITIALIZE SECTION 
Ri, $SAVES 

#30,SP 

20040, -( SP) 

@340,RO 


41 
235,R0 
47 


es 
#5 ,,ENTRY .REASON 
SWP .FLAGS 


Ss 
#3, ENTRY . REASON 
SuP .FLAGS 


SEQ 0168 
VAX-11 Blies-16 V4.1 Page 152 
DISKSUSER2: (MLYNAR. FRO IZROAHO. 6L1;4 (41) 
: 5924 


3 4  .AnKS 
é 


CLEAR . TABLES 
¢,CLEAR. TABLES 


*,CLEAR. TABLES 


; *,CLEAR. TABLES 
: 


; CLEAR. TABLES 
; *,CLEAR. TABLES 
; 


+, CLEAR. TABLES 


SP ,¢ 

*, COUNT 

@, DELAY .MULT 
DELAY .MULT, $STMP2 


e, $sSTMPi 








;. > 
t 
— 

‘iY 
_ 
‘4 
+ 
. 
> 
. 
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000024 


16%: 


178: 
188: 





GRgGONSG gaBEEPECEE GOLD SRG ggg GE TURE PERIL! 


anqynenae 
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de, CSP) 
T,04 


ern 


9p" 





16% 
LSUNIT .16( SP) 





VAX-11 Blies-16 V4 
DISK $USER2: [MLYNAR 


$sTMP 
$sTMP1 
$s¢TMP2 


COUNT 


: SMALLEST . DRIVE 


¢, HWPT .REF 
HWPT .REF .« 


SMALLEST .DRIVE,« 
(HPT .REF), 2 


(HPT .REF),¢ 


SMALLEST . DRIVE 
*, SMALLEST .ORIVE 
UNIT 


UNIT, ¢ 


Settlement —_—-- 


SEQ 0169 
Page 153 


-i- 
FROTZRQAHO.8L1;4 (41) 








Se —_——— «oe ~~. = 


RD/RX EXERCISER 
INITIALIZE SECTION 


003440' 


000022 


003436’ 
000006 


177760 
000012 
000012 
000010 


170377 
007400 


000014 
000006 


19%: 


20$: 


21$: 


228: 


10-Oct-1985 09: 
10-Oct-1985 09: 


6(SP) 

CRO),R1 
2csP 

2(SP),-(SP) 
$126, -(SP) 
PC, BL $MUL 
C SB). acSP 
cst CRO), C 


)o 
Ri) 
28$ 
#1,14(SP) 
-6(SP) 
R1.R5 
CRS), -(SP) 
177760, (SP) 
RO 
12(SP),RO 
RO, (SP) 


RO 
ee lea 


#3 ,R2 


RO 
R2,RO 
RO 
@CST,RO 
CRS),CRO) 
n4, -( SP) 


(SP) 
#170377,(SP) 
#7400, (RO) 


SEQ 0170 


VAX-11 Blies-16 V4.1-562 Page 154 
DISKSUSER2: [MLYNAR. FRA} ZROAHO. BL1;4 (41) 
+ UNIT 

; UNIT,«# 6043 


HWPT . ADDRESS, « 


$ 6046 
; *,HWPT.REF 604 
$ 604 
; CTLR,* ti 
! 
; *,HWPT. REF | 
*,FLAG cose 
ath. 6054! 
; HWPT.REF ,« ; 
; SMALLEST.DORIVE,« 
; CTLR,« 7 
; *, TEMP sited 
; *, TEMP 
: sean 
; TEMP,« | 
; UNIT,«# 6061) 


EL LE RE 7 
SSS eee ee ee 


ee ee oe 


RD/RX EXERCISER 
INITIALIZE SECTION 


010000 
040000 
177777 
000010 
000012 
000014 


000016 


000012G 


000014G 


000020G 


000040 


100000 
100000 
010000 


000100 
010000 


000016 


000010G 


000002 


23%: 


243: 


253: 


263%: 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


(SP )+«, (RO) 
#1 


0000, (RO) 
@40000 (RO) 


10(R1),CST+2(RO) 
R3,RO 
R2,RO 
RO 
12(R1),CST+4(RO) 
R2 .RO 
14(R1),CST+6(RO) 
R3,.RO 
R2 RO 
16(R1),CST+10(RO) 
R3.RO 
R2 .RO 
(SP),CST+12(RO) 
R3,RO 
R2.RO 
(SP).CST+14(RO) 
R3.RO 
R2.RO 
#CST+20,RO 
(RO) 
(R5),-C(SP) 

SP 


040.2(SP) 
24$ 


SEQ 0171 
VAX-11 Bliss-16 V4.1-582 Page 155 


DISK $USER2: (ML YNAR. ZRQ)ZRGAHO.BL1;4 (41) 
: soe 
; 6065 
; *,*CHWPT .REF ) 6066 
; TEMP , — 
; *(HWPT.REF),« 

; TEMP ,« tie 
; *(HWPT.REF),« 

; TEMP ,« — 
; *(HWPT.REF),« 

TEMP ,« rety 
; *(HWPT.REF),« 

; TEMP ,« ey 
; BLANKS, « ‘ | 
; TEMP ,« = 
; BLANKS,« | 
; TEMP, « — 


rr ee es ee 


RD/RX EXERCISER 
INITIALIZE SECTION 


000022G 


177760 
000003 


000010 
000901 


000002G 


27s: 


283: 


32s: 


10-Oct-1985 09:32:06 


10-Oct-1985 09:31:20 

ADD R2,RO 
ASL RO 
CLR CST+22(RO) 
BR 29% 
MOV LR5), -(5P) 
BIC #177760, (SP) 
MOV @CER.01, -(SP) 
MOV @3,-(SP) 
MOV SP: 
TRAP =. «i? 
ADD #10,SP 
MOVB #1,DUR(R4) 
MOV R4.RO 
TRAP 3s‘ S11 
BR 29% 
INC 2(SP) 
-WORD CLV!CLC 
BGT 29% 
JMP 21$ 
TSTB =: 6 (SP) 
BEQ 303 
JMP 40$ 
CLR 14(SP) 
MOV #126, -(SP) 
JSR PC, BLS$MUL 
CMP (SP)+,(SP)- 
TST CSTC(RO) 
BEQ 32$ 
JMP 37% 
MOV (R1),CSTCRO) 
MOV 2(R1).R3 
BIC #177000,R 
BIC 777,CST+2(RO) 
BIS R3.CST+2(RO) 
MOV 4(R1),CST+4(RO) 
MOV RS 

ADD R1,R5 
MOVB ‘R5),-(SP) 
BIC #177760, (SP) 
CLR RO 
BISB 12(SP),RO 
SUB . CSP) 
MOV $12, -(SP) 
JSR C,BL$MUL 
TST SP)« 
MOV RO.R2 
ADD R2 
MOV 1eis?). (SP) 
MOV #53, -(SP) 
JSR PC. BL$MUL 


SEG 0172 


X-11 Bliss-16 v4.1-582 
Dreksusene. : (ML YNAR. FRO} ZROAHO. BL1;4 


‘ TEMP , « 


HWPT .REF ,« 


; SP,« 


*,*C(UNIT) 
UNIT, # 


; CTLR 


FLAG 


CTLR 
CTLR,« 


HWPT .REF , « 
*(HWPT .REF),« 


*(HWPT .REF),« 
HWPT .REF ,« 


SMALLEST .DRIVE,« 


oO 
=< « 
i a4 
ann 
+ BD 


156 
eal) 


6057 
6093 


ZRQAM2 RD/RX EXERCISER 
vo2.3 INITIALIZE SECTION 


001476 005726 

1500 060200 
001502 006 

1504 062700 0000006 
001510 011510 
001512 
001514 000316 
001516 042716 170377 
091522 042710 007400 
061526 05261 
| 002530 042710 010000 
001534 710 040900 
| 001540 105715 
001542 100003 
001544 012761 177777 
001552 010300 
001554 
001556 006300 
001560 016160 000010 
001 010 
001570 
001572 006 
001574 016160 000012 
001602 010300 
001604 
001606 006300 
001610 016160 000014 
001616 010300 

1620 
001622 006300 
901624 016160 000016 
001 010300 
001634 
001636 300 


006 

001640 011660 000012G 
006300 

001652 011660 0000146 
006300 

001664 700 000020G 


005046 
001676 032766 000040 


646 
001714 042710 100000 


000016 


000010G 


0v0002 


33%: 


—_> ——_—e— — 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


Ha 
CRS) 
33% 

#-1,16(R1) 

R3,RO 

R2,RO0 

RO 
10€R1),CST+2CRO) 
R3,RO 

~ Si 

R3,.RO 

—— 
14(R1),CST+6(RO) 
R3,RO 

R2,RO 


RO 
16(R1),CST+10(RO) 
R3,RO 


R2,RO 
CSP),CST+12(RO) 
R3, RO 

R2,RO 

RO 

R3,RO 


; TEMP ,« 


UNIT, # 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: [MLYNAR . 7RQ)ZROAHO. BL1;4 


*, *CHWPT .REF ) 


TEMP , « 


*(CHWPT. 


TEMP, « 


*CHWPT. 


TEMP ,# 


*CHWPT. 
; TEMP, « 
*(HWPT. 
; TEMP,* 
; BLANKS, 


TEMP , 


BLANKS, 


TEMP, « 


REF ),«# 


REF ),* 


REF ),* 


REF ), « 


& 


a 


SEQ 0173 
Page 157 
matere! 


6116 


61 


613 


613 


61 


6138 


ee — 


RD/RX EXERCISER 
INITIALIZE SECTION 


100000 
010000 
000100 
010000 


000922G 
000001 000006 


000014 


002712’ 
000006 


000001 
000002 


000001 000000G 


000006 
000016 


002112’ 
000000G 000005 


000000G 


000126 
000000G 
000005G 
000053 


35$: 


37$: 


38%: 
39%: 


40$: 
41$: 


42$: 
43%: 


44$: 


45$: 


46$: 





10-Cct-1985 09:32:06 
10-Oct-1985 09:31:20 


ROR (SP )-+ 

BCC 35$ 

BIS #100000 , (RO) 
TST CSP )+ 

MO CRS), CSP) 
BIC #10000, CRO) 
BIT #100, (SP)- 
BEQ 36 

BIS #10000 , (RO) 
MOV R3,RO 

ADD R2,RO0 

ASL R 

CLR CST+22(RO) 
MOVB #1,6(SP) 
BR 39 

INC 14(SP) 
-WORD CLV!CLC 

BGT 38$ 

JMP 31% 

TSTB 6(SP) 

BNE 40$ 

MOV @CER .02,-CSP) 
MOV RO 

TRAP 

MOVB #1.,DOURCR4) 
MOV RO 

TRAP 

ADD #6, SP 

INC R4 

CMP R4,16(SP) 
BGE 42 

JMP 19% 

CMPB ENTRY .REASON, #5 
BNE 48$ 

MOV LSUNIT RS 
CLR R4 

BR 45$ 

MOV R4,RO 

TRAP 42 

MOV RO,R1 

INC Ra 

CMP R4,R3 

BLT $ 

CLR 3 

MOV » - (SP 
MOV #126, -(SP) 
JSR . BL $MUL 
CLRB CST+SCRO) 
MOV R3,(SP) — 


re eee - 


VAX-11 Bliss-16 V4.1 


TEMP , « 


*,FLAG 
CTLR 


; FLAG 


‘ SP,* 
; #,*CUNIT> 
; UNIT,# 


; UNIT 
; UNIT,# 


$ 
it 
: 
Xe 


S* 
“§ 


a | 
+ 
ed 
D 
* 


S82 SEQ ='s 
DISK $SUSER2: (MLYNAR. 7RO}ZROAHO. BL1;4 


158 
ee ai) 


6139 


615 


614 
6041 


6164 
61 
616 
61 


6171 
617 


6176 





A Sm ee ~~ 


SEQ 0175 
age 159 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 X-11 Bliss-16 v4.1-S862 
vo2.3 INITIALIZE SECTION 10-Oct-1985 09 :31:20 bISKtUSERe. [MLYNAR .ZRQ)]ZRQAHO.8L1:4 ee 41) 
002152 004737 000000G JSR PC BL SMUL 
i 012701 90000035 MOV #3,R1 3; *#,OFFSET 6175 
002162 010002 473%: MOV RO,R2 : 6176 
164 0601 ADD R1,R2 ; OFFSET,« 
002166 006502 ASL R2 
002170 042762 020000 000000G BIC #20000 ,CST(R2) 
002176 0627 000012 ADD #12,R1 3; *,OFFSET 6175 
. 002202 020127 000041 CMP R1,04 ; OF FSET,« 
| 002 003765 BLE 47$ 
| 002210 062706 000006 ADD #6, SP 6172 
002214 INC R3 ; CTLR 6171 
| 002216 000243 .WORD CLV!CLC 
002220 003742 BLE 46% 
123727 000000G 000001 483: ENTRY .REASON, #1 3 61 
002230 001017 BNE 
002232 005037 000000G CLR CTLR.CNT $ 618 
002236 CLR 0 ; CTLR 618 
005760 C0O0000G 49$: TST CSTCRO) ; *#(CTLR) 6189 
002244 001402 BEQ 50$ 
002246 005237 000000G INC CTLR.CNT ; 619 
002252 062700 000126 50$: ADD #126 ,R0 ; *,CTLR 618 
002256 000243 -WORD CLV!CLC 
002260 003767 BLE 49$ 
002262 104431 TRAP 31 ; 619 
002264 010037 000000G MOV RO, FREE .MEM.ADDR 
002270 51$: CLR Ri ; UNITS 620 
002272 3 S2$: CLR R3 ; COUNT 
002274 010300 53$: MOV R3,RO ; COUNT, 620 
002276 0601 ADD R1,RO ; UNITS,« 
002 006300 ASL 0 
002302 000000G CLR TALLYCRO) 
005203 INC R3 ; COUNT 
002310 020327 000006 CMP R3, 06 ; COUNT,« 
002314 003767 BLE 53% 
002316 062701 000033 ADD #33,R1 ; *, UNITS 6201 
002322 020127 000121 CMP R1i.#121 ; UNITS,« 
002 003761 52$ 
0023 327 000001 000012 BIT #1,12CSP) ; *,CLEAR. TABLES 
002 001436 BEQ S7$ 
002 CLR 1 ; UNITS 6207 
002342 012703 000007 54$: MOV #7,R3 ; *, COUNT 
002 10 55$: MOV R3,RO ; COUNT,« 
002350 100 ADD R1,RO ; UNITS,«# 
poe tes 300 ASL RO 
0023 000000G CLR TALLYCRO) 
002360 INC ; COUNT 
002362 020 000032 CMP R3,032 ; COUNT,* 
002366 003767 BLE 55$ 
002370 06270 000033 ADD #33,R1 ; *, UNITS 6207 
002374 0o2012 000121 CMP R1,4121 ; UNITS,# 
002400 003760 BLE 54$ 


— ee eee 


002534 


: Routine Size: 
+ Maximum stack 


000000 004737 


000004 


104411 


000006 000207 


: Routine Size: 
s; Maximum stack 


RD/RX EXERCISER 
INITIALIZE SECTION 


000001 000012 


000000G 
000001G 
000002 


000032 


687 words > 
depth per invocation: 


001362’ 


4 words, 
depth per invocation: 


59$: 


Routine Base: 
25 words 


LS$INIT: 


Routine Base: 
2 wor 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 

BIT #1,12(SP) 

BEQ 57$ 

CLR RO 

CLRB C.ERR.TBLCRO) 
CLRB C.ERR. Tet sicko) 
ADD 2,R 

. WORD CLV!CLC 

BLE 56$ 

CLR RO 

CLRB QIOCRO) 

INC 

-WORD CLV!CLC 

BLE 58$ 

CLR RO 

MOVB #377 ,RP.USECRO) 
INC RO 

CMP RO, #7 

BLE 59% 

BITB $1,CLK.PRESENT 
BEQ 60$ 

CLR 80177546 

CLR Iooda. 

CLR Iod@.IN 

CLR CRN.HIGH 

CLR CRN.LOW 

CLR RO 

TRAP 41 

ADD #32,SP 

R*S Cc 
$CODE$ + 1362 

-SBTTL LS$INIT INITIALIZE SECTION 
: JSR PC,LINIT 

TRAP 

RTS PC 


$CODE$ + 4120 


SEQ ty 
VAX-11 Bliss-16 V4.1-582 1 
DISK$SUSER2: [MLYNAR. sRaIZROAHO. BL1;4 


ee 41) 
; #,CLEAR. TABLES 6211 
; CTLR 6213 
; *C(CTLR) 6215 
s #C(CTLR) 6216 
; *,CTLR 6213 
; CTLR 622 
; *#«C(CTLR) 
; CTLR 622 
; COUNT 6 
; *,*CCOUNT) 622 
; COUNT 
: 


6226 
COUNT, « 
: 
; 623 
623 
; 62 


Le = - 


a 
we 


a 

Ld 

oa 

o 
KPNRUNNNVNNE PRP RP e re 


000000 000207 


s Routine Size: 
+ Maximum stack 


000000 004737 
000004 104461 
000006 000207 


: Routine Size: 
; Maximum stack 





10-Oct-1985 09:32:06 


RD/RX EXERCISER 
10-Oct-1985 09:31:20 


AUTODROP SECTION 
Sebttl ‘AUTODROP SECTION’ 


$s 

! THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
! THE “ADR” FLAG WAS SET THE UNIT(S) UNDER TEST ARE CHECKED TO 
! SFE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 

: DROPPED FROM TESTING. 


BGNAUTO; 
'if BIT_TST (SWP_FLAGS, SWF_TRC) 
: PRINTF (COBM3); 


return; 
ENDAUTO; 
-SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 
word, Routine Base: ‘sCODE$ + 4130 
dapen per invocation: O words 
.SBTTL LS$AUTO AUTODROP SECTION 
004130’ L$AUTO: : JSR PC,LAUTO 
RTS PC 
4 words, $CODE$ + 4132 


Routine Base: 
depth per invocation: 2 words 


er er ee ee site o— 


SEQ 0177 


VAX-11 Bliss-16 V4.1-582 
DISK SUSER2: [MLYNAR. 7Ra}ZROAHO. 6L1;4 


age 16 
(42) 





SEQ = 


— RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-5 
CLEANUP CODING SECTION 10-Oct-1965 09:31:20 DISKSUSER2: [MLYNAR. 7RQ}ZROAHO. BL1;4 


Sebttl ‘CLEANUP CODING SECTION’ 


:¢ 


33 
~ 
us 


THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
7 AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN; 


LABEL $ZZZ 
LZ1i; 'ZZZ 


DORPT ; 

'CLRVEC CO_TVEC); 
if .CLK_ PRESENT 
then 


RETURN ODT TRAP TO DIAGNOSTIC SUPERVISER 


STOP THE LINE -CLOCK 
RETURN LINE-CLOCK’S VECTOR TO SUPERVISOR 


LINE CLOCK = 0; 
!  CLRVEC (s0‘100'); 
end; 


FOR EACH CONTROLLER 
IF CONTROLLER EXISTS 


incr CTLR from 0 to (MAX_CTLR - 1) do 
if CRORX_ADDR = .CST [.CTLR, IP_ADDR)) neaa O 
then 
begin 
if .ADDR_VECT_OK 
then 
LZ1: begin 
if .OCT {.CTLR, STAT) eal ONLINE 
then 


IF CONTROLLER ALIVE 


'MMM incr COUNT from 1 to 10000 do 
_incr COUNT from i to 200 do 


peste 
DELAY (1); 
AK 


BREAK; 
if .DCT ({.CTLR, CRING_CNT]} eal 0 
then 


WAIT TILL OUTSTANDING COMMANDS FINISHED 


ea — 01703 00 
TEMP1 = (.DCT [.CTLR, RR_BEG)) + 4 @ .Z; ee roe ADDRESS 
. TEMP 1 ; PACKET ADDRESS 
IF “TEMPS EQL CRN_LOW CRN 
THEN ‘IF THE LAST CRN IS BACK, 
“eC CRCIP, RC_ALL, ALL_ONES); LEAVE LZ1); !THEN STOP WAITING 
; 


oe 
w 
PUDADADADOUNUUUUUU S & SS SS SUUUWNNNNVNUUUNNNUNNNNNMNNH eee eee 


end; 


!ZZZ 


162 
Oe 435 





SL stats amin hate smugness — 


SEQ 0179 


ZRQAM2 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliee-16 v4.1-582 Page 163 
vo2.3 CLEANUP CODING SECTION 10-Oct-1985 09:31:20 DISK$USER2:(MLYNAR. FRaIZROAHO. 8L1;4 (43) 
; 6310 4 
; 6311 4 WRT_RORX (RCIP, RC_ALL, ALL_ONES); ! WRITE IP TO STOP DEVICE 
SHE = 
s 
; 6314 3 CLRVEC (.CSTE.CTLR, VEC_ADDR)); ! RETURN CONTROLLER’S TRAP VECTOR TO SUPERVISOR 
; 6315 2 end; 
| 8 6316 2 
| 8 6317 1 ENOCLN; 
| 
i 
| .SBTTL LCLEAN CLEANUP CODING SECTION | 
| 000000 004137 0000006 LCLEAN: JSR R1, $SAVES : 6256 
| 000004 005746 TST -(§P) | 
000006 104424 TRAP 24 ; 626 
000010 132737 000001 000000G BI* 1,CLK.PRESENT ; 627 
$00988 902087 177546 eta a r7sas 
; 627 
005005 1s: CLR RS ; CTLR 
010546 2%: MOV RS, -CSP) ; CTLR,« 62 
000030 012746 000126 MOV #126, -(SP) 
000034 004737 000000G JSR PC, BL $MUL 
000040 010003 MOV 
000042 (SP)+«,(SP)> | 
000044 016337 000000G 0000006 MOV CSTCR3),RORX. ADDR | 
900052 001501 BEQ 13% 
132737 000001 0000006 BITB #1, ADDR. VECT. OK ; 62 
000062 001470 BEQ 12$ 
000064 010546 MOV R5.-(SP ; CTLR,« 
012746 000022 MOV @22,-(SP) 
000072 004737 JSR PC, BL 
000076 010001 RO.R1 
000100 (SP)+,(SP)+ 
9001 005761 000000G TST OCTCRI 
000110 012704 000310 MOV 9310,R4 ; *, COUNT 
000114 012702 000001 3$: MOV 61,R2 ; #.$$TMP2 
001410 4%: BEQ 
000122 013700 000000G MOV L$OLY,RO ; *,$$TMP1 
000126 001403 BEQ 
0001 005016 S$: CLR (SP) ; $$TMP 
000132 005300 DEC RO ; $$TMP1 
0001 001375 BNE 54 
0001 302 6$: DEC R2 ; $$TMP2 
000140 000767 BR 4s 
000142 104422 7$: TRAP 22 
000144 105761 000000G TSTB DCTC(R1) ; 
000150 001027 BNE 10$ 
000152 CLR RO ; 6301 
000154 016137 000004G 0000006 83: MOV DCT+4(R1), TEMF1 ; 630 
000162 060037 000000G ADD RO, TEMP ; 2,8 
000166 017737 000000G 000000G MOV STEMP1, TEMP2 ; 6304 
000174 027727 000000G 000000G CMP @TEMP2, @CRN. LOW ; & 
000202 001005 BNE 93 


SSS SSS cee eerste, er em = 


RDO/RX EXERCISER 
CLEANUP CODING SECTION 


012702 177777 
1 
062700 000004 9%: 
7 000014 
108: 
177777 11%: 
000000G 


ZR 

vo2.3 

000210 

000214 

000216 

0002 

000232 

000240 

baa a 016300 000002G 12%: 
042700 177000 

000254 

000256 

000260 

000262 

000264 

000266 


Huey 


13%: 


3; Routine Size: 92 words, Routine Base: 
5 Maximum steck depth per invocation: 10 words 


000000 004737 004142‘ LS$CLEAN: : 
000004 104412 

000006 000207 

s Routine Size: 4 words, Routine Base: 

+; Maximum steck depth per invocation: 2 words 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 





$CODE$ + 4142 


-SBTTL LSCLEAN CLEANUP CODING SECTION 


JSR PC,LCLEAN 
TRAP 12 

RTS PC 

$CODE$ + 4432 


VAX-11 Blies-16 V -_— x 
DISK $USER2: CML YNAR: +RO1ZROAHO. BL1;4 oe 43) 


RC .REG 307 
; RC-REG. © . 
e $5 6301 
i ‘ 
3 COUNT 
; #,RC.REG 
; RC.REG,« 
; 631 
; CTLR 
; 
PF 631 


— —- 


——— 


eS ee 


8 


DH 
w 
~ 


SSRRESSERERGESS 


VE MAD MAUI DUIS & Bo Be a 8 8 8 G8 G8 8 EP RD PO POD PD PD G8 G8 8 G8 FE GAP PO DD PDD PO DAD be be pe he pe 


RD/RX EXERCISER 10-Oct-1985 09:32:06 
DROP UNIT SECTION 10-Oct-1985 09:31:20 


sebttl ‘DROP UNIT SECTION’ 
te 


! THE OROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
! TO NO LONGER BE TESTED. 


word, 
INT : byte initial (byte (FALSE)); 


begin 


register 
as INPUT = 0; 


UNIT = INPUT; 
end; 


‘eect BIT_TST (SWP_FLAGS, SWF_TRC) 
!2ZZ PRINTF COBMS, .UNIT); 


SEARCH : 
begin 
incr CTLR from 0 to (MAX_CTLR - 1) do 





ee ee 


! RO = UNIT NO. 
GET UNIT NUMBER 
UNDECLARE RO 


! SEARCH BLOCK 


! FOR EACH CNTR 


incr OFFSET from (O + OF _UN) to C(CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF _UN) by UNIT_SIZE so ! FOR EACH UNIT 


if ¢€.CST {.CTLR, .OFFSET + OF _DATA, Bnet eql .UNIT) and 
a -CTLR, .OFFSET + OF _DATA, D_PRES) eql PRESENT) 


begin 
if (.CST 
( .OUR ttn 
C.OUR (UNIT 
hen : 
n 
PRENT = TRUE; 


if €.CST (.CTLR, U_CNT) gtru 0> 


-CTLR, .OFFSET + OF DATA. D_STAT) eql ONLINE) or 


i or 
oa DU_PROTECT) 


and 
(.CST (.CTLR, .GFFSET + OF _DATA, D_STAT) eal ONLINE) 


CST (.CTLR, U_CNT) = .CST (.CTLR, U_CNT) - 1; 
if €.CST (.CTLR, U_CNT) eql 0) and 





! IF UNIT MATCHES 


! IF UNIT ALIVE 


: O.K. TO PRINT 


$ DECREMENT COUNT 


-——— - 









PMU UUUNUNUNNVRN UWS & FU 


RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliees-1 ‘ 
DROP UNIT SECTION 10-Oct-1985 09:31:20 DISK SUSER2: [MLYNAR. 


(.CST (.CTLR, .OFFSET + OF_DATA, D_STAT) eal ONLINE) 
EOP _FLAG = TRUE; 

= ad (.CTLR, .OFFSET + OF_DATA, O_STAT) = OFFLINE; 
: 


leave SEARCH; 
end; 








$877. LOU DROP UNIT SECTION , 





LOU: JSR RL sSAVES ; 
CMP & eo" 
CLRB 20s SP ; PRINT 
MOV RO,Ri 3 INPUT, UNIT 
CLR RS ; CTLR 
is: MOV RS. -CSP) ; CTLR,« 
MOV 053, -(SP) 
JSR PC.GL SUL 
HOV RO, 4(SP) 
MOV 63.R3 ; *, OFFSET 
2%: MOV R3,RO ; OFFSET, « 
ADD 4(SP),RO 
ASL RO. 
MOV @CST .R2 
ADD RO, R2 
MOV R1,R4 ; UNIT,«@ 
MOY CR2),RO 
SWAB sO 
177760 BIC #177760,RO 
CMP RO.R4 
040000 Ha $0000 CR2) 
9 $ 
BEG &t 
CLR ae : 
020000 SIT 20000, (R2) 
BEG 33 


ee 


ALL UNITS OFFLINE | 


MARK UNIT OFFLINE | 
IF UNIT ALIVE 


EXIT SEARCH BLOCK 
IF UNIT FOUND 


IF OK TO PRINT 


“UNIT XX DROPPED" 
REASON 








— ee ene 


ste H See 


32288 


RO/RX EXERCISER 
DROP UNIT SECTION 


000000G 000007 
000000G 000011 


000001 000002 
000000G 000001 
000000G 000002 
000000G 000007 
000000G 000011 


000000G 
000002 
000000G 
177400 


000000G 
000001 


3$: 


4$: 


9$: 


10$: 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


INC R4 
BR 43 

c DUR(R1), 97 
BEQ y 

CMPB = OUR(R1), 11 
BNE 7$ 

MOVB #1.6(SP) 
MOV R5,(SP) 
MOV #126, -(SP) 
JSR PC, BL 

TST SP) 

ADD @CST+4,RO 
TSTB CRO) 

BEQ $ 

ROR 4 

SBCB Ss (RO) 

BNE 3 

BIT #20000, (R2) 
BEQ 6$ 

MOVB  #1,E€0P.FLAG 
BIC #20000. (R2) 
CMP (SP)+,(SP)+ 
BR 93 

ADD #12,R3 

CMP R3, 041 

BLE $ 

CMP (SP)+,(SP)+ 
INC 

-WORD CLV!CLC 

BLE i$ 

BIT $1,2(SP) 
BNE 1 

CMPB  DUR(R1),¢1 
BEQ 

CMPB  =-« OUR(R1). #2 
BEQ 1 

CMPB =- DUR(R1), @7 
BEQ 

CMPB  =—-d OUR(R1), 011 
BNE 11% 

MOV R1,-CSP 

MOV #0U.MSG, -(SP) 
MOV @2,-(SP) 
MOV “RO 

TRAP —s_—«i7? 

MOVB DUR(R1).R1 
BIC @177400._R1 


R1 
MOV DU.RSNCR1),(SP) 
MOV Sas 


MOV , 
TRAP 17 


eee -——— = «=: " 


SEQ 0183 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: [ML YNAR . ZRQJZRGAHO.8L1;4 


; *CUNIT),« 
; *C(CUNIT),« 


*, PRINT 
CTR, a 


; *,OFFSET 
; OFFSET,« 


; CTLR 


; *,PRINT 
*C(UNIT),«* 
*C(UNIT),# 
*(UNIT),* 
; #C(UNIT),« 
; UNIT,# 


; SP,« 
*(UNIT),« 


; SP,« 


age 167 
(44) 


6359 


-_-— a ee —<_ 


SEQ 0184 


ZRQAM2) RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 v4.1-582 Page 168 
vo2.3 DROP UNIT SECTION 10-Oct-1985 09:31:20 DISK $SUSER2: [MLYNAR .ZRQ)ZROAHO.BL1;4 (44) 
000364 062706 000010 ADD #10,SP 3 6389 
000370 022626 11%: CMP (SP)+,(SP)-+ ; 6317 
000372 000207 RTS PC 

s Routine Size: 126 words, Routine Base 


: $CODE$ + 4442 
; Maximum steck deptn per invocation: 14 words 


-SBTTL L$DU DROP UNIT SECTION 
JSR PC,LOU 


000000 004737 004442° L$DU:: ; 6392 
000004 104453 TRAP 

000207 RTS PC | 
4 Routine Size: 4 words, Routine Base: $CODE$ + 5036 | 


: Maximum stack depth per invocation: 2 words 


EN teeta 


LLL 


= 
Ss LLL 


Se ae ee ne eee 


i 


000010 
12 


: Routine Size: 


i 
°o 
POP C8 UN Gh GE GRP PO PD PO PO ND DD be e - 


2626 
000207 


— ee ee -——_— ae eee 


RD/RX EXERCISER 
ADD UNIT SECTION 


Ssbttl ‘ADD UNIT SECTION’ 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


-—-— ee ee ae ee 


: THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 


' 

ze 

t 10 BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A 
x 


TO THE TEST CYCLE 
BGNAU ; 


locel 
STINDX : word, 
ENDIDX : word; 
register 
~ UNIT = 0; 
coon BIT_TST CSWP_FLAGS, SWF_CST) 


STENDX = .UNIT # TALLY_LEN; 
ENDIOX = .STINDX + TALLY_LEN - 1; 


UNIT BACK 


UNIT NUMBER APPEARS IN RO UPON ENTRY 


IF CLEAR STAT. TABLES TRUE.... 
ZERO OUT 


incr COUNT from .STINDX to .ENDIDX do H UNIT'S 
TALLY [. COUNT } = 0; : STATISTICS 
end; 
ENDAU; 
-SBTTL LAU ADD UNIT SECTION 
000000G LAU: JSR R1, $SAVE2] 3 
000000G TSTB SWP .FLAGS 3 
BPL 3$ 
MOV RO, -(SP) ; UNIT,« 
000033 MOV #33,-(SP) 
JSR PC .6L$MUL 
MOV RO, "he 3 rae ENDIDX 
000032 ADD 032,R 3 *, ENDIDX 
MOV oA ; STINDX, COUNT 
DEC ; COUNT 
BR of 
1$: MOV R1.RO ; COUNT,« 
ASL R 
000000G CLR TALLYCRO) 
2s: INC Ri ; COUNT 
CMP R1,R2 ; COUNT,ENDIDX 
BLE is 
CMP CSP)+,(SP)-+ $ 
3$: RTS PC ; 
25 words, Routine Base: ‘sCODE$ + 5046 


VAX-11 Blies-16 V4.1- Page 
DISK$SUSER2: [MLYNAR. TRO) ZROAHO. BL1;4 


SEQ 0185 
169 
(45) 


-——— 


| ; Maximum stack depth per invocation: 


———_— oo  - 


ZRQAM2] RD/RX EXERCISER 10-Oct-1985 09:32:06 
vo2.3 ADD UNIT SECTION 10-Oct-1985 09:31:20 
; Maximum stack deoth per invocation: 6 words 
-SBTTL L$AU ADD UNIT SECTION 

000000 004737 005046’ L$AU:: JSR PC,LAU 

_ 000004 104452 

| 000006 RTS PC 

3 Routine Size: 4 words, Routine Base: ‘sCODE$ + 5130 


2 words 


SEQ 0186 


VAX-11 Bliss-16 V4.1-5862 Page 170 
DISK $USER2: [MLYNAR .ZRQJZRQAHO.8L1;4 (45) 
; 6421 


7 © Ge @ Ge Ge ce © @ Ge Ge es os oe 
Mt 
~ 
PO PO DODD bb be bp pe pe 


000000 012737 
000006 000002 
+ Routine Size: 


+ Maximum stack depth per invocation: 0O wor 


_—— tn ee a 





SEQ 0187 
. V4.1- P 71 


RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Blis 582 1 
31: ! NAR. ZRQ)ZROAHO.BL1;4 (46) 


Bliss-1 
NON-EXISTENT MEMORY TRAP HANDLER 10-Oct-1985 09:31:20 DISK $USER2: (ML 
Sebttl ‘NON-EXISTENT MEMORY TRAP HANDLER’ 


>» 


THIS TRAP HANDLER IS VECTORED FROM LOCATION 4 FOR ALL UNIBUS TIMEOUT 
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT 
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG FOR THE RORX 
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER. 


BGNSRV (NEX_TRAP); 


NEX = TRUE; ! NEX TRAP OCCURRED 
ENDSRV ; 
-SBTTL NEX.TRAP NON-EXISTENT MEMORY TRAP HANDLER 
000001 000000G NEX. TRAP: : 
MOV #1 ,NEX $ 643 
RTI ; 643 
4 words, Routine pi $CODE$ + 5140 


ee ee 
a 





SEQ 0 .. 
» i8 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 
vo2.3 HOST MEMORY PARITY TRAP HANDLER 10-Oct-1985 09:31:20 DISK#USER2;TMLYNAR ZROIZROAMO.8L1;4 9% 345 
: 6438 : Sebttl ‘HOST MEMORY PARITY TRAP HANDLER’ HMM 
i 
; 6440 1 te 
; 64414 i ' THIS TRAP HANDLER IS VECTORED FROM LOCATION 114 FOR ALL HOST MEMORY PARITY 
; 6442 1 ‘ ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO READ A MEMORY LOCATION WITH 
; 6443 i PARITY/UNCORRECTABLE ECC ERROR DETECTED BY THE MEMORY'’S PARITY OR ECC LOGIC. 
i 7” 
5 6445 i 
; 6446 2 BGNSRV (PARITY); 
; 6447 2 
: 6446 2 builtin 
, 6449 5 HALT; 
. 
P 6452 2 
; 6453 2 .CSR_ADD = #0’ 40000’ ; 
: 6454 2 
; 6455 2 PRINTF (0B8M126, ..CSR_ADD); 
: 6456 2 
; 6457 2 HALT (); 
t 64 2 
; 6459 1 ENDSRV; 
.SBTTL PARITY HOST MEMORY PARITY TRAP HANDLER 
000000 010046 PARITY: : MOV -(SP) ; 
000002 017746 0000006 - ” "MOV @CSR.ADD, -(SP) ; 645 
012746 0000006 MOV €08M125, -(SP) 
12 012746 000002 MOV @2,-(SP) 
16 O01 MOV SP ,RO ; SP,« 
104417 TRAP 17 

2 012777 040000 0000006 MOV 40000, CSR. ADD ; 645 
000030 012716 940000 MOV #40000, ; 645 
000034 012746 000000G MOV #0BM126 CSP) 
000040 012746 000002 MOV #2,-(SP) 
000044 010600 MOV SP RO ; SP.s 
000046 104417 TRAP 17 
000050 HALT ; 645 
000052 062706 000012 ADD @12,SP ; 
000056 012600 MOV (SP), RO 
000060 000002 RTI 
: Routine Size: 25 words, Routine Base: *sCODE$ + 5150 


+ Maximum steck depth per invocation: 8 words 


; 6460 1 


LLL LC CC LC A A COR ee ew 


—— eee = — 


a ee ee -- 


S€Q@ 0189 


ZRQAM2]) RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bliss-16 V4.1-582 Page 173 
vo2.3 TIME OF DAY 10-Oct-1985 09:31:20 DISKSUSERS. ([MLYNAR .ZRQ)JZRGAHO.BL1;4 ee 48) 
: 6461 1 sebttl ‘TIME OF DAY‘ 
3 6462 1 
: 6463 1 $e 
: ores : : THIS INTERRUPT SERVICE ROUTINE KEEPS TRACK OF THE TIME-OF -DAY 
; 646 ee 
: 6466 1 
: 6467 2 BGNSRV (TIME); 
3 6468 2 
: poy 3 ¢ CLK_TICKS = .CLK_TICKS + 1; ! INCREMENT CLOCK-TICKS 
: 
; 6471 2 i? .CLK_TICKS gequ 3600 
3 6472 2 then 
: ins nIhuTES MINUTES + 1 UPDATE MINUTE COUN 
3 s ¢ 1; H MINU C T 
: 6475 3 — TICKS = 
: 6476 2 
Eve sane ew 00 
: y « gequ 
: 6479 2 then 
e461 3 a HOURS 1 UPDATE HOUR C 
$ =. + 1; ¢ OUNT 
’ 6462 3 MINUTES = O; 
$ 6483 2 end; 
+ Gaes 3 if .HOURS 24 
$ 7 « gequ 
; 6486 2 then 
: 6487 2 HOURS = O; ' RATIONALIZE HOURS 
: 6466 2 
’ 6489 i ENDSRV; 
-SBTTL TIME TIME OF DAY 
000000 005237 000000G TIME:: INC CLK.TICKS : 
023727 000000G 007020 CMP CLK. TICKS , #7020 : 
000012 103404 BLO i$ 
000014 105237 000000G INCB MINUTES : 
000020 005037 000000G CLR CLK.TICKS : 
000024 123727 000000G 000074 i$: CMPB MINUTES, #74 ; 
000032 103404 BLO 2s 
000034 105237 000000G INCB HOURS ; 
000040 105037 000000G CLRB MINUTES : 
000044 123727 000000G 000030 2$: CMPB HOURS . 30 3 
000052 103402 BLO 3$ 
000054 105037 000000G CLRB HOURS ; 
000060 000002 3$: RTI ; 
:; Routine Size: 25 words, Routine Base: *sCODE$ + 5232 


; Maximum stack depth per invocation: 0O words 





EE LS A Se am 





- el eee eee 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bliss-16 v4.1-5862 Page 174 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISKSUSERS. : (MLYNAR . 7RAIZROAHO. BL1;4 (49) 
; 6490 i Sebttl ‘GLOBAL ROUTINES’ 
> 
: 6492 1 global routine SET_CPAR (CTLR) : novalue = 
es 
: 7° 
; 6495 1 : THIS ROUTINE SETS UP THE Compson. Y - USED CONTROLLER-RELATED DATA ITEMS 
, 6496 4 FOR THE GIVEN CONTROLLER NUMBER 
: 3 
t 6498 i ’ INPUTS: 
: 6499 I ' CTLR - CONTROLLER NUMBER 
; 6500 1 : 
: 6501 1 ! IMPLICIT OUTPUTS: | 
; 6502 1 ' CCTLR - CURRENT CONTROLLER NUMBER | 
; 6503 i t CST_ADDR - ADDRESS OF CONTROLLER'S STATUS TABLE | 
: 6504 i ! DCT_ADDR - ADDRESS OF CONTROLLER‘S DRIVER TABLE 
, 6505 4 RORX_ADDR - ADDRESS OF CONTROLLER'S IP REGISTER 
: 506 .” 
t 6507 i 
; 6508 2 cePa 
; 6509 2 crn 2 -CTLR: ! SET CURRENT CONTROLLER NUMBER 
; 6510 2 = CST + (.CTLR * CST_LEN « 2); ! CALCULATE ADDRESS OF CONTROLLER'S CST 
; 6511 2 ber “ADDR = DCT + (.CTLR * DCT LEN « 2); ! CALCULATE ADDRESS OF CONTROLLER’S DCT 
+ 6512 2 RDRX_ADDR = .CST_ADOR [IP_ADDR); ! GET CONTROLLER'S DEVICE ADDRESS | 
: 6513 1 end; 
.SBTTL SET.CPAR GLOBAL ROUTINES 

000000 010146 SET.CPAR: : 
000002 016601 000004 MOV 4(SP),R1 ; CTLR,«* 
000006 010137 000000G MOV R1,CCTLR 
000012 010146 MOV R1,-(SP) ; 651 
000014 012746 000126 MOV #126, -(SP) 

004737 000000G JSR PC, 
googes 00 000000G ADD @CST.R 

910037 000000G MOV RO, CST. 
0000 MOV ‘ ; 651 
Soons6 +36 000022 MOV 022,-C(SP) 
000042 004737 000000G JSR Cc 
000046 700 000000G ADD 
900052 010037 0000006 MOV RO, DCT. ADOR 

017737 000000G 000000G MOV @CST. ADDR, RORX. ADDR ; 651 
000064 062706 000006 ADD 06, SP ; 6 
000070 0 1 MOV (SP), R1 ; 649 
000072 000207 RTS PC 
+ Routine Size: 30 words, Routine Base: $sCODE$ + 5314 
+ Maximum stack depth per invocation: 5 words 





ZRQAM2) RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bliss-16 V4.1-582 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISKSUSERS. CME YNAR: FRO) ZROAHO. BL1;4 
: e335 ; global routine SET_UPAR (OFFSET) : novalue = 
; fe 
; 6516 i : THIS ROUTINE SETS UP THE COMMONLY-USED UNIT-RELATED DATA ITEMS FOR 
; rye : : THE CURRENT CONTROLLER AND GIVEN CST OFFSET. 
3 é 
i 6519 i ! INPUTS: 
; 6520 i ' OFFSET - WORD OFFSET INTO CURRENT CONTROLLER’S CST WHICH 
i s 6521 i H DESCRIBES A UNIT 
's 6522 1 } 
& 65235 1 H IMPLICIT INPUTS: 
; pry : : CST_ADDR - ADDRESS OF CURRENT CONTROLLER’S CST 
s : 
r $332 1 ! IMPLICIT OUTPUTS: 
; 6527 1 H CUOFF - CURRENT UNIT'S CST OFFSET 
: 6526 i : CDOISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 
5 ri 1 : L$LUN - CURRENT UNIT NUMBER (DRS UNIT ER 
: ooat : : T_ADDR - ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
$ Sa 
$ 6532 2 in 
' 65335 2 CUBFF = ,OFFSET 
; 6534 2 COISK = .CST "ADDR f- .OFFSET + OF _DATA, pre NUM); 
; 6535 2 L$LUN = .CST_ADDR [.OFFSET + OF _DATA, IT}; 
3 65 2 T_ADOR = TALLY + (.L$LUN * TALLY _LEN « ot ya 
$ 6537 1 end; 
-SBTTL SET.UPAR GLOBAL ROUTINES 
000000 010146 SET.UPAR: : 
MOV 1,-CSP) ; 
016637 000004 000000G MOV 4CSP), CUOFF ; OFFSET, « 
000010 01 000004 MOV 4 )»,RO ; CUOFF ,« 
000014 ooeeae ASL R 
000016 063700 000000G ADD CST.ADOR ,RO 
000022 111037 000000G MOVB CRO), CDISK 
042 177760 000000G BIC #177760, COISK 
0000 011001 MOV CRO),.R1 ; 
000036 000 SWAB 
042 177760 BIC 177760,R1 
000044 010137 000000G MOV 
000050 010146 MOV R1,-(SP) ; L$LUN,« 
pases j 012746 000066 MOV -(SP) 
004737 000000G JSR PC, BL $MUL 
000062 0627 000000G ADD LY,RO 
010037 000000G MOV RO,T.ADDR 
000072 02 CMP (SP)+,CSP)+« ; 
000074 012601 MOV (SP)+,R1 ; 
000076 7 RTS 
s+ Routine Size: 32 words, Routine Base: *sCODE$ + 5410 
+ Maximum steck depth per invocation: 4 words 


SEQ, 0191 175 
oee 503 


651 
653 
65 


653 


65 


6 
651i 


SA EL A OU 


SEQ 0192 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 AX-11 Bliss-16 V4.1-582 Page 176 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISKSUSER2: EMC YNAR: TRO) ZROAHO. BL1;4 (51) 


5 
N 
ut 


globel routine GET_PKT (CTLR) = 


%*¢ 

THIS ROUTINE SEARCHES THE MSCP PACKET POOL ALLOCATION TABLE (PKT_USE) 
FOR A FREE nscp P ACKET TO ALLOCATE TO THE pGiveN CONTROLLER. IF ONE IS 
FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED 
TO THE CALLER. OTHERWISE, A -1 iS RETURNED INDICATING NONE AVAILABLE. 


INPUTS: 
CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION 
begin 
ae oned d initial (-1) 
‘ x 6: si wor in 1a = e 
RING.ADDR - 


PACKET OWNED : byte, 
NEXT_PACKET : byte; 


NEXT_PACKET = .NEXT_PKT_USE; ! NEXT PACKET TO TRY 
incr COUNT from 0 to (PKT_CNT - 1) do ! FOR EACH ENTRY IN ALLOCATION TABLE 
PAEKET_OWNED = FALSE; 
if .PKT_USE [.NEXT_PACKET] lss 0 ! IF ENTRY INDICATES FREE PACKET 
then _ 
RING_ADDR = .DCT_ADOR (RR_BEG); ! FIRST RESPONSE PACKET’S ADDRESS 


incr I from 1 to C(RRING_LEN + CRING_LEN) do ! FOR EACH PACKET ADDRESS 
f €..RING_ADDR eqla .MSCP_PKT LP A ol -~PACKET, PKT_LOJ) and 





ellen tek kkk te ke ke 
UU PPPS SMNMUUSUNS SHH SS SUTUUUUNVVUVVNNNVNVNE Ree Pree ee ee pe 


‘MMM RING_ADDR + 2) and ED 
then 
penio ! CHECK ADDRESS AND OWNERSHIP 
PACKET_OWNED = TRUE; ! PACKET OWNED BY CONTROLLER 
ex: tloop; 
1 end 
se 
RING_ADDR = .RING_ADDR + 4; ' ADDRESS OF NEXT PACKET IN RING 
if not .PACKET_OWNED ! IF NOT ALREADY USED 
then | 
in 
PK? USE {.NEXT_PACKET]) = .CTLR; ! ALLOCATE PACKET TO CONTROLLER 


| 
CCC.R 
¢CC:(.RING_ADOR * 2)) and ED_OWN) eql~€D_OWN) ‘MMM 
| 
! 


ee ee ee 


S 
tw 
ue 


SA 333 333 fa 
PVMVVN VUGUUUUUWNN WN UUUUU UW ® FMM 


6615 


if 


hen 
NEXT_PACKET = 0; 


.NEXT_PACKET gequ PKT_CNT 


SEQ 0193 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4,.1-5862 age 177 

GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZRGAHO.BL1;4 (51) 
index = .NEXT_PACKET; 
meh Bir SReSerbntatr, 13.93, a5, o} 2859 U7 Pacner 
exitloop; ! DONE 
end; | 

end; 
NEXT_PACKET = .NEXT_PACKET + 1; ! TRY NEXT PACKET IN RING 


IF BEYOND ALL PACKETS, START AT THE TOP 


end; 
if ¢(. index 0) and ' IF PACKET FOUND 
(.PKT_USE [.index] geq 0) 


nsee _PKT f- index, MSGLEN) = SZ_GEN; 
MSCP_PKT 
NEXT_PKT_USE = 


PACKET SIZE - ONLY ONLINE AND SCC CHANGE IT 
CREDIT 


index, CREDITS) = 1; 
NEXT PACKET TO ALLOCATE 


-NEXT_PACKET + 1; 


if.NEXT_PKT_USE gequ PKT_CNT 


NEXT_PKT_USE = 0; CYCLE BACK TO BEGINNING IF AT END 


end; 
return .index; 
end; 
.SBTTL GET.PKT GLOBAL ROUTINES 
GET.PKT:: 
JSR R1, $SAVES ; 653 
SUB a6, SP 
MOV ; *, INDEX 6551 
000004 MOVB Next. OKT. USE ,4(SP) ; #,NEXT. PACKET 6 
000002 MOV ois 2(SP) . +: T 6 
1s: CLRB (sp) ; PACKET. OWNED 6 
CLR Ri ; 6 
BISB 4(SP),R1 ; NEXT. PACKET, « 
TSTB PKT.USECR1) 
BGE 
MOV OCT. ADDR ,RO : 657 





a eee + ee 


RD/RX EXERCISER 
ROUTINES 


000040 000006G 
000017 000010G 
000001 000010G 
000010 


2s: 


4$: 


5$: 


8$: 
9$; 


ge 


cj 
8% 


RREPSEI=3E9 


fy 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


4(RO),RS 
2(RS),R 
77777 RB 

R3, @- 100000 


#1,4(SP) 


RO.RS 

R2,R3 

MSCP .PKTCR3) 
Re 

R2,@42 

53 

CSP)+,. CSP): 
CSP)+, (CSP )+ 


Nba ge TR 
-PKT+10CRO 

#1, MSCP. PKTs1CROD. 

10(SP),RO 


a 


SEQ 0194 


VAX-11 Blies-16 V4.1 Page 178 
DISK SUSER2: [ML YNAR. SRI ZROAHO. 6L1;4 (Si) 
; #,RING.ADOR 
. 6574 
; #,1 657 

+ RING. ADOR, « 6572 
s *CRING.ADDR),« 657 

; *,PACKET.OWNED oats 
#, RING.ADOR 6 

3; I 6572 
3 *,PACKET.OWNED 6 

; CTLR,*¢ 65% 
; *, INDEX 659 
; 65¢ 

6 s,J 655 

Fy 6 

3 J,* 

3; J 659 
° J,* 

3 658° 
3 6565S 
; NEXT. PACKET 5602 
; NEXT.PACKET, « 77, 

: NEXT.PACKET 660 
; COUNT 6562 
; INDEX 661 

; *C INDEX) 66 

; INDEX,* 661¢€ 
; 661 

: 661€ 


NEXT .PACKET ,« 


—— eee 


SEQ 0195 


RO/AX EXERCISER 10-Net-1985 09:32:06  VAX-11 Blies-16 v4.1-582 Page 179 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: (ML YNAR . ZRQJZRQAHO.GBL1;4 (Si) 
INC RO 
000000G MOVE RO.NEXT.PKT.USE 
000014 yy a6 G14 + NEXT. PKT.USE,« 
000000G CLRB NEXT .PKT .USE 3 
108: CMP (SP)+,CSP)+ . 
118: MOV R4,RO s INDEX,« 6 
000006 ADD 06. SP ; 6 
RTS PC 


122 words, Routine Bese: %sCODE$ + 55i0 
depth per invocetion: 13 words 


ee 


| 


PVMNVVUNUAUUS & SUWUUUUNNNNNNNNN Nr Hee pepe pe 


5 
012703 


RD/RX EXERCISER 
GLOBAL ROUTINES 


globel routine PUT_PKT (index) 


Se 
r 
+ 
{ 
_ 
-_ 
— 


begin 


locel 
— sy word, 


RING_ADDR = 


.OCT’_ADOR (RR_BEG); 


Heen nner renner renner TS  <petineisesm nice 


10-Oct-1985 09:32:06 
09:31:20 


10-Oct-1985 09 


: novalue = 


iner COUNT from 1 to (RRING_LEN + CRING_LEN) do 


Bonen z ibe _ADDR + 
.OWNER and ae CED_OWN)) ano (not CED_FLAG)) ; 


PKT_USE [.index] = -1; 


end; 


PUT .PKT: 


1$: 


if .MSCP_PKT [.index, PKT_LO) eqla 


-RING_ADDR + 4; 


. -RING_ADDR 


gethione PUT.PKT GLOBAL ROUTINES 


R1, $SAVE4 
OCT. 


#10,R4 
A el a 
#2,R3 


SEQ 0196 


Lg PACKET DESIGNATED BY “INDEX” IS RETURNED TO THE POOL BY THIS 


VAX-11 Bliss-16 V4.1 Page 180 

DISK$USER2: (MLYNAR. +R FROAHO. BL1;4 (52) 
: 
j 

! ADDRESS IN FIRST RESPONSE RING | 

! FOR EACH ADDRESS IN THE RINGS | 

! 1F ADDRESS MATCHES | 

! ADDRESS OF OWNERSHIP WORD 

! GIVE OWNERSHIP TO HOST 

' LOOK AT NEXT PACKET ADDRESS IN RING 

; 663 

6648 

; #,RING. ADDR 

; INDEX, 6653 

; *,COUNT 66 

; #-RING. ADDR 6653 

; *, OWNER 6657 


a 


_-— —_— eee wee ee - e_e 


ZRQAM2 RD/RX EXERCISER 

vo2.3 GLOBAL ROUTINES 

000050 060103 

000052 042713 140000 

000056 062701 000004 2s: 
000062 005304 

000064 001564 

000066 112762 000377 000000G 

000074 022626 


000076 000207 


| : Routine Size: 32 words, Routine Base: 
4 Maximum steck depth per invocation: 8 words 


RTS 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


R1,R3 
#140000, (R3) 
#4,R1 


1$ 
#377, PKT.USECR2) 
eee 


$CODE$ + 6074 


rr re eee A <A a 


AX-11 Bliss-16 V4.1-582 
DISKSUSER2: : (MLYNAR .ZRQ)ZRGAHO.BL1;4 


RING. ADDR , OWNER 
+, OWNER 

“RING, PDOR 

COUNT 


ee . 
098 52) 


6658 
6662 
6650 


6633 


ese 


SL TTT LL rT I ES ee ee 


7 © Gf Ge Ge Ge Ge © es Ge Ge ee ee es os 
~ 
@ 

Pe be bt he he be pe po bo pe pe pe pe 


: Routine Size: 
+ Maximum stack 


— 


_——— a ee a o--+—-- - 


SEQ 0198 
RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4. Page 182 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISKS$USER2: [MLYNAR. sROTZROAMO. 6L1:4 (53) 
routine PUTA_PKT (CTLR) : novalue = 
ts 
: vars ROUTINE DEALLOCATES at. MSCP PACKETS WHICH HAVE BEEN ALLOCATED 
TO A PARTICULAR CONTROLLER 
‘ INPUTS: 
: CTLR - CONTROLLER NUMBER 
incr COUNT from 0 to (PKT_CNT - 1) do ! FOR EaCH ENTRY IN ALLOCATION TABLE 
if .PKT_USE [.COUNT] eql .CTLR ! IF PACKET IS ALLOCATED TO GIVEN CONTROLLER | 
then 
PKT_USE (.COUNT) = -1; ! DEALLOCATE IT | 
.SBTTL PUTA.PKT GLOBAL ROUTINES | 
PUTA.PKT: 
MOV R1,-CSP) ; 667 
CLR RO ; COUNT 668 
000000G 1$: MOVB PKT.USECRO),R1 ; *(COUNT),« 668 
000004 ee oe ; *,CTLR 
000377 000000G MOVB #377 ,PKT.USECRO) ; *,*( COUNT) 668 
2$: INC RO ; COUNT 6681 
000013 CMP RO, #13 ; COUNT, 
BLE 1$ 
MOV CSP )+,R1 : 6671 
RTS PC : 
16 words, Routine Base: ‘sCODE$ + 6174 
depth per invocation: 2 words 


oo . anes 





Ge - - 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-582 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [MLYNAR . ZRQ)ZRGAHO.BL1;4 
: 6686 1 globel routine GET_RETPKT (CTLR) = 
. a 
3 fe 
’ 6689 1 H THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE _. USE ) 
8 6690 1 H FOR A FREE RETURN PACKET TO ALLOCATE TO be GIVEN CONTROLLER F ONE IS 
: 6691 1 : FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED TO 
$ oes ; : THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 
i 8 s 
4 6694 1 $ INPUTS: 
$ ets : CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION 
. = 
; $698 5 begi 
$ in 
; 6699 2 
: 6700 2 local ; 
; ores : index : signed word initial (-1); ! ASSUME NONE AVAILABLE 
; 
$ os : incr COUNT from O to (RP_CNT - 1) do ! FOR EACH ENTRY IN TABLE 
: 
; 6705 2 if .RP_WSE [.COUNT) lss 0 ! IF FREE RETPKT IS FOUND 
$ 6706 2 then 
; 6707 3 beg 
$ 6708 3 RP SiGe {.COUNT) = .CTLR; ! ALLOCATE RETURN PACKET TU CONTROLLER 
; ih 4 : index = COUNT ; 
; 
$ 6711 3 incr J from 0 to agg LEN - 1) do ' ZERO OUT RETPKT 
$ 6712 3 RETPKT (.COUNT, .J, 0, 16, 81 = 0; 
| Shia 3 t1 ' DONE 
: exitloop; : 
: 6715 2 end; 
5 6716 2 5 
5 6717 2 return .index; ! RETURN PACKET INDEX (COR -1) TO CALLER 
$ 6718 1 end; 
. SBT GET.RETPKT GLOBAL ROUTINES 
000000 004137 000000G GET. RETPKT:: 
JSR R1,$SAVE4 ; 

012703 177777 MOV #-1,R3 ; *, INDEX 
000010 005001 CLR Ri ; COUNT 
000012 105761 000000G 1$: TSTB RP .USECR1) ; *(COUNT) 
000016 002025 BGE 3$ 

116661 000014 000000G MOVB 14(SP),RP.USECR1L) ; CTLR, «(COUNT ) 

010103 MOV R1,R3 ; COUNT, INDEX 
0000 010146 MOV R1,-CSP) ; COUNT,« 
0000 012746 000026 MOV $26,-(SP) 
000036 004737 000000G JSR PC, BL $MUL 
000042 022626 CMP CSP)+,(SP)+ 
000044 005002 CLR R2 3; J 
000046 010004 2$: MOV RO,R4 : 
000050 060204 ADD R2,R4 ; J.* 
000052 006304 ASL R4 
000054 005064 000000G CLR RETPKTC(R4) 


SEQ 0199 
Page 183 


(54) 


ers ere eee me ee 


LL ne 


ee nod 


ZRQAM2) RD/RX EXERCISER 
vo2.3 GLOBAL ROUTINES 
000060 005202 
000062 27 000025 
| 000066 003767 
000070 
| 000072 yess et 3%: 
000074 020127 000007 
100 003744 
102 010300 4$: 
| 000104 000207 
+ Routine Size: 35 words, Routine Base: 


; Maximum stack depth per invocation: 8 wor 





10-Oct-1985 SE pp 


10-Oct-1985 09:31:20 
INC Ro 
CMP R2,.025 
BLE 2s 
BR 4$ 
INC Ri 
CMP R1,07 
BLE i$ 
MOV R3,RO 
RTS PC 
$CODE$ + 6234 


—— ee 


SEQ 0200 


AX-11 Bliss-16 V4.1-582 Page 164 
DISKsUSERS. : (MLYNAR .ZRQ)ZRGAHO.8L1;4 (54) 
3; J 6711 
; J,* 

+ count $708 
; COUNT, « , 
; INDEX,« 6698 
: 6686 


| 





EE A a 7 


SEQ 0201 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 185 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR. FROIZROAHO. BL1;4 (55) 
s  @aae 3 global routine PUT_RETPKT (index) : novalue = 
— = ie 
Se 
; 6722 1 : THE RETURN PACKET DESIGNATED BY “INDEX” IS RETURNED TO THE POOL BY THIS 
; 6723 1 $ ROUTINE. 
: 6724 1 $- 
; 6725 1 
; 6726 1 RP_USE [.index]) = -1; : 
iia PUT.RETPKT GLOBAL ROUTINES 
000000 016600 000002 PUT .RETPKT: - 
MOV 2CSP),RO ; INDEX,« 67 
000004 112760 000377 000000G MOVB #377 ,RP.USECRO) 
000012 000207 RTS PC ; 671 
+ Routine Size: 6 words, Routine Base: *sCODE$ + 6342 
+ Maximum stack depth per invocation: 0O words 


ee ee 





SEQ 0202 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 186 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: (ML YNAR . ZRQ)ZRGAHO.6BL1;4 (56) 


globel routine GET_IO_BUFF CADDR) : novalue = 


> 


pes ROUTINE HANDLES THE ALLOCATION OF AN I/O BUFFER FROM THE BUFFER | 


INPUTS: | 
ADDR - ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR | 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 


OUTPUTS: 
THE ALLOCATED BUFFER'S DESCRIPTOR IS LOADED INTO THE TWO 
WORDS AT “ADDR” AND “ADOR + OTHERWISE, A ZERO IS RETURNED 
AT “ADDR” IF NO BUFFERS ARE AVAILABLE, 


in 
A = 0; ! ASSUME FAILURE 


incr COUNT from 9 to (QIO_PER_CTLR * MAX_CTLR - 1) do ! FOR EACH ENTRY IN BUFFER TABLE 
if .BUFF_OWN [.COUNT] lss 0 ! IF BUFFER IS FREE 
then 


ALLOCATE BUFFER TO CONTROLLER 


Burr OWN [ COUNT) = .CCTLR 
i; a oy BUFFER DESCRIPTOR 


= . BUFF _ADDR [ .COUNT 
Ee, ll ' 
end; 


a 
~ 
MMV UAUUUNN NNN DNDN Pb bb bb ee pe pe pe pe 


end; *? ROUTINE GET_IO_BUFF 


Ke 
& 
~ 


TL GET.IO0.BUFF GLOBAL ROUTINES 
Ri, -(SP) 
a4( SP) ADDR 675 
000006 1 R1 COUNT 7 675 
000010 105761 900000G 1$: oa enh? *( COUNT ) 675 


002011 
000016 113761 000000G 000000G MOVB CCTLR, BUFF .OWNCR1) :; *,*#C(COUNT ) 67 
MOV R1i,RO COUNT , 6761 


2 
Din ne 
ne 


006300 RO 
000030 016076 000000G 000004 MOV BUFF .ADDRCRO) , @4( SP) ; *,ADOR 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 
| 000036 000404 BR 3$ 
' 000040 005201 2s: INC R1 
000042 020127 000007 CMP R1,#7 
000046 003760 BLE i$ 
000050 012601 3$: MOV (SP)+,R1 
| 000052 000207 RTS PC 
} 
| ; Routine Size: 22 words, Routine Base: ‘$sCODE$ + 6356 
; Maximum stack depth per invocation: 2 words 
: 6767 1 
: 6768 1 


SEQ 0203 
VAX-11 Bliss-16 V4.1-5862 Page 187 
DISK SUSER2: [MLYNAR . ZRQ)ZRGAHO.BL1;4 (56) 
3 6759 
; COUNT 6753 
3 COUNT, 
$ 6729 





ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 
: ers : global routine PUT_IO_BUFF CADDR) : novalue = 
s 
; 6771 1 te 
; 6772 1 : THIS ROUTINE HANDLES THE DEALLOCATION OF AN I/O BUFFER, RETURNING IT 
$ 6773 i H TO THE BUFFER POOL. 
3 6774 i H 
: 6775 1 H INPUTS: 
: 6776 1 ' ADDR - ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE 
| : 6777 i H DEALLOCATED 
ma. * 
; 
; th + : incr COUNT from 0 to (QIO_PER_CTLR * MAX_CTLR - 1) do ! FOR EACH ENTRY IN BUFFER TABLE 
' 
’ 6762 1 if .BUFF_ADOR [.COUNT] eqle ..ADDR ! IF THIS IS THE BUFFER‘S ENTRY 
$ 6763 1 then 
; 6784 2 pogin 
$ ph $ elon {.COUNT) = -1; aaa a BUFFER 
t exitloop; ! 
$ 6787 1 end; 
la PUT.IO.BUFF GLOBAL ROUTINES 
000000 010146 PUT. I0.BUFF: 
MOV R1,-CSP) : 
000002 005001 CLR Ri ; COUNT 
000004 010100 1$: MOV R1,RO ; COUNT, «* 
000006 006300 ASL RO 
000010 026076 000000G 000004 CMP BUFF .ADDRCRO),@4( SP) ; *,ADOR 
000016 001004 BNE $ 
000020 112761 000377 000000G MOVB #377, BUFF .OWNCR1) ; *,*#CCOUNT) 
po o9s 34 000404 BR 3$ ; 
0000 005201 2s: INC R1 | ; COUNT 
000032 020127 000007 CMP R1,¢7 ; COUNT,« 
000036 003762 BLE i$ 
012601 3$: MOV (SP)+,R1 : 
000042 000207 RTS PC 
: Routine Size: 18 words, Routine Base: *%sCODE$ + 6432 


; Maximum stack depth per invocation: 2 words 


188 
Pees 3 


AO — ore eee 


ee ee ee em eee 


- © @ @ @ @ oF of oe 
AAG 
32 
> be be be pe ee ee pee pn pe 


: Routine Size: 
; Maximum stack 


—— eee eee 





SEQ 0205 
RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 189 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR . ZRQ)ZRGAHO.8L1;4 (58) 
globel routine PUTA_BUFF : novalue = 


86 


' THIS ROUTINE DEALLOCATES ALL I/O BUFFERS WHICH HAVE BEEN ALLOCATED TO 
THE CURRENT CONTROLLER C(CCTLR). 
incr COUNT from 0 to (QIO_PER_CTLR « MAX_CTLR - 1) do ! FOR EACH ENTRY IN BUFFER TABLE 
if .BUFF_OWN [.COUNT] eql .CCTLR ! IF THIS BUFFER ALLOCATED TO CURRENT CONTROLLER 
BUFF _OWN [.COUNT]) = -1; ! DEALLOCATE IT 
 SBTTL PUTA.BUFF GLOBAL ROUTINES 
PUTA. BUFF : 
MOV R1,-CSP) : 67 
CLR RO ; COUNT 67 
C00000G 1$: MOVB BUFF .OWNCRO),R1 ; *CCOUNT),« 679 
000000G Ss oo 
000377 000000G MOVB #377 ,BUFF .OWNCRO) ; *,*(COUNT) 67 
2$: INC RO ; COUNT 67 
000007 CMP RO, 07 ; COUNT,«# 
BLE i$ 
MOV CSP)+,R1 . 67 
RTS PC 
16 words, Routine Base: ‘sCODE$ + 6476 


depth per invocation: 2 words 


ee 


ZRQAM2 
vo2.3 


Besbansccnscescnesssseseses 
~ - OO TOUauEOS N wVhr 
MMMM AD NNN DAN Pe be be be be bb pe pe pe pe 


: Routine Size: 


re eee ia eae | 





RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blis1-16 V4.1-582 Page 190 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 OISKSUSER2: i MLYNAR. TRG} ZROAHO. BL1;4 (59) 


globel routine OUT_IOD@ = 


Ss 


THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TO BE 
PROCESSED FROM THE I/0 DONE QUEUE (I0DQ). THE “OUT” POINTER TO THE 
QUEUE IS ALSO UPDATED. : 


| 
‘ 
g 
H INPUTS: 
: NONE | 
3 i 
‘ OUTPUTS: 
THE INDEX OF THE NEXT RETPKT TO BE PROCESSED. | 

begin | 

lecel | 

index : word; 

index = .I00@ [{.I0D0@ -OUT); ' GET NEXT RETPKT INDEX 

I _OUT = .I00Q_ OUT 1; ! ADVANCE “OUT” POINTER 

is -I00Q@_OUT gequ IODQ_LEN ! IF BEYOND END OF QUEVE 

I00Q_OUT = 0; ! SET POINTER TO BEGINNING OF QUEUE 
return .index; ' RETURN INDEX TO CA! LER 
end; 
- SBTTL OUT. IODQ GLOBAL ROUTINES 
000000G OUT .IOD@: : 
MOV I F A : 681 
MOVB IODQCRO),.RO ; *, INDEX 
177400 ps Mages, RO ; #, INDEX 
: 
000000G 000010 iy eg OUT, #10 ; 
000000G CLR I00Q. OUT 
i$: RTS PC 

15 words, Routine yp nel $CODE$ + 6536 


; Maximum steck depth per invocation: 0O wor 


nee 


ee ee oe re EN 
EE EE te ee 


ZRQAM2) RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-5862 Page 191 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZRQAHO.BL1;4 (60) 
’ 6626 1 globel routine IN_IODQ Cindex) : novalue = 
$835 t f* 
i 
5 6631 i : THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE I/0 DONE QUEUE, AND 
’ cass : : UPDATES THE IODQ_IN POINTER. 
f _— 
1 
; 6835 1 if (C.I0D@_IN + 1) eql .100@_0UT) 
s+ 6836 2 €.100Q_IN - (I0D@_LEN - 15 eal °T00@. OUT) 
r €437 1 then 
’ 66368 i return 
5 6639 1 else 
' ee roBa" 
i 6641 2 I {.I00Q_IN) = sages ' LOAD INDEX INTO QUEUE 
, case 2 I00Q@_IN = .f00Q_IN t ADVANCE “IN” POINTER 
3 
: esse : if .IO0DQ@_IN gequ I0DQ_LEN ! IF BEYOND END OF GUEUE 
s 6864 
2 I00@_IN = 0 ! CYCLE BACK TO BEGINNING OF QUEUE 
nn ' 
: 6846 1 end; ' IF I0DQ@ IS NOT FULL 
-SBTTL IN. IODQ@ GLOBAL ROUTINES 
010146 IN. IODQ: : 


-(SP) ; 
013701 0000006 MOV Toba. IN,R1 ; 683 
10100 


18 
4(SP)., IODQ(R1) INDEX, # 


023727 0000006 000010 CMP 1009. IN, #10 


I00@.IN 6. 
0 1 1$: MOV CSP)+,R1 
7 RTS PC 


Size: 27 words, Routine Base: ‘sCODE$ + 6574 
eteck depth per invocation: 2 words 


srccescseecseees : 

"oO 

RSs 
B38 
: 

som 
sz 
8 3 


if 
i 





a — 


DD ete ett ee 












ZRGAM?) RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Blies-16 V4.1-582 ege 192 
vo2.3 GLOBAL ROUTINES 10-Oct-1985 09:31:20 DISK SUSER2 : (ML YNAR . 2RQ)ZROAHO.BL1;:4 (61) 
‘ 6649 i 

; 6850 1 

$ : globel routine DROP_CTLR (CTLR. REASON) -: novalue = 

i «6853 1 

. on 

; 1 ROUTINE DROPS ALL UNITS ASSOCIATED WITH THE CONTROLLER DESIGNATED 

$ 1 g REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR 

F a FOR EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT 

i 6860 i. 

‘ 

ie 

i begin 

j 

j 5 locel 

i T; 
‘ 

j incr N from (O + OF _UN) to (CUNITS_PER_CNTR - 1) « UNIT_SIZE + OF _UN) by UNIT_SIZE do ! FOR EACH UNIT | 
i 

; Lf CST {.CTLR, .N + OF DATA, D_PRES] eql PRESENT ! IF COW IGURED 
ri 

i in | 
j * .CST (.CTLR, .N + OF_DATA, D_UNIT); ! ORS UNIT NUMBER 

j ae. UNIT) = . REASON; ! DROP REASON 

' (UNIT); ! DROP UNI 

i é end; 

i 

i end; 





-SBTTL OROP.CTLR GLOBAL ROUTINES 





DROP .CTLR: : 
JSR $SAVE3 : 
MOV qatSeo cesp) ; CTLR,« 
MOV ret -C(SP) 
yet BC. Gu smut 
MOV @3,R2 ; *,N 
i$; ro R3.RO ; 
R2,RO0 é N,* 
ASL RO 
2 #60000 ,CST(RO) 
MOV ESTCROD RI ; *,UNIT 
SWAB ; UNIT 
BIC o177760.8 Ri ; *,UNIT 
MOvVB 16(SP), OURCR1) ; REASON, «( UNIT) 
Ml = RO 5 UNIT, 
2s: ADD #12,R2 s #,N 
CHP R2,.041 ; N,*e 





——_——— ee ee 





a ee 





ZRGAM2? 10-Oct-1965 09:32:06 VAX-11 Bliss-16 V4.1 P 195 
= 4 s = S - . = 

vo2.3 10-Oct-1985 09:31:20 DISKSSER2:[PLYNAR TROTEROAMO.BL104 thes 

000100 003752 BLE is 

0001 0. cr CSP )-.(CSP)- 3 6863 

0001 20 RTS PC : 6851 

s Routine Size: 35 words, Routine Bese: SsCODES + 6662 

i; Maximum steck deptn per invocation: 68 «words 

i 6879 1 

5 6660 i 


-_ > << .-= 


RD/RX EXERCISER 








vo2.3 GLOBAL ROUTINES 
P 68681 ; globel routine OkV_CTLERR (CILR) : 
1 fe 
i 1 $ 
5 » 3 $ 
j 1 H 
$ 1 Hy 
s i $ 
i 1 $ 
s 1 f 
s 1 $ 
5 1 ! 
| 6 ne 
; begin 
r loce 
i. -ADOR : ref block (OCT_LEN, word) field (DCT_FIELDS); ! CONTROLLER'S DCT ADDRESS 
i 
i 4 g 5 See tm © 2): ¢ Ger CONTROLLER'S OCT ADDR 
; ; noeang oa): RELEASE. ALL PACKETS ALLOCATED. TO ro" CONTROLLER 
i P-CTLR ( (“CTR DU_CFATAL); ' DROP ALL UNITS ON THE CONTROL 
i 904 ' ROUTINE DRV _CTLERR 
-SBTTL ORV.CTLERR GLOBAL ROUTINES 
000000 010146 ORV .CTLERR: : 
MoV : 
MOV ; CTLR,«@ 
MOV 
MOV 
JSR 
CUR D.ADOR 
MOV inn 
JSR 
MOV 3 
MOV 
JSR 
ADD 3 
MOV $ 
RTS 
+ Routine Size: 23 wo Routine Base: %sCODES + 6770 
+ Maximum etack depth” 4s invecetion: 5 words 


- ee ee ee eee. ees 






68 
6861 


. ee 


Le Se e—-cteceeene - 


: 


PAP APPA BSABDAVQMBPS SSVSVS*MSSSSSSVS*SSSSSFSeE 2 SeSeSee eu eeneuuete 
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SEQ O211 


RD/RX EXERCISER i0-Oct-1965 Sa VAX-11 Bliss-16 V4.1-S82 


GLOBAL ROUTINES 
global routine SEND (index) = 
t¢ 





IN NOT ONLINE Tyee A FAILURE INDICATION IS RETURNED TO 


THE CALLER, AND NO ACTION iS T 


INPUTS: 
INDEX - INDEX OF MSCP PACKET CONTAINING THE COMMAND TO 





IMPLICIT INPUTS: 
DCT_ADOR - ADDRESS OF CURRENT CONTROLLER’S DCT 


begin 


locel 
#LOF .AOOR 


A «we 








ms ING.CNT) lssu sary GROG. LEN) and ! IF CRING IS NOT FULL AND 
STAT] eql ONLINE) or ! IF DEVICE IS ONLINE OR 
. index, OPCODE) eal. oP _scC)) ! IT IS A SET-CTRL-CHAR COMMAND 
if (not (C.MSCP_PKT [. ota. OPCODE) eql OP_ACC) or (.MSCP_PKT [.index, OPCODE 1 OP_ONL) or 
¢ PKT {.i OP eDBe} eql 9P_RD) or (.MSCP _PKT [{. index, OPCODE cal OP_SCC) or 
_PKT >? OR !ZZZ 
_PKT >) oF 'Z2ZZ 
_PKT >) OR !Z22Z 
_PKT >) OR 'ZZZ 
_PKT ) OR 'Z2Z 
P_PKT [. x, ESP) OR !ZZZ 
¢.MSCP _PKT {. index, } eql OP_WRT))) 
begin. C(DBM107, .MSCP_PKT [.index, OPCODE)); 
re 3 
end 
else 
begin 
do 
_BREAK " ' LOOP TILL CREDIT BALANCE POSITIVE 
until CC.MSCP_PKT [. index, CMD_TYPE) eql IMM_CMD) and 
( .CREOIT_BAL | a 1)) or 
(.CREDIT_6AL gtru 1); 


06 195 
20 DISKSUSER2:[MLYNARZRQ)ZROAHO.BL1:4 cas} 


3 
~ 
uw 


6956 
6959 








RD/RX EXERCISER 10-Oct-1985 09:32:06 
GLOBAL ROUTINES 10-Oct-1985 09:31:20 
MSCP_PKT (. index, CRN_LO) = (CRN_LOW = _CRN_LOW « 1); 
if .CRN 0 
i LOW eal 
CRAN_HIGH = _CRN_HIGH «+ 


MSCP_PKT (index, CRN_HI] = .CRN_HIGH; 
SLOT_ADOR = .OCT_ADDR (CR_NEXT]; 








BREAK 
until ((.€.SLOT_ADDR + 2) and ED_OWUN) eql 0); 












1ZZZ 
eae .ADOR gtre .DCT_ADDR [CR_END) 
SLOT_ADDR = .DCT_ADDR [CR_BEG); 
ad CR_NEXT) = .SLOT_ADOR 
batt tae DCT_ADDR (CRING CNT) + 1; 
; @L CID_MSCP) 
COREBTT 1 1); 
AOOR 3 
s 
elec 
return FAILURE; 
end; 
-SBTTL SEND GLOBAL ROUTINES 
0000006 SEND: : 4 } sees 
§ 0000006 0v0004 CMPB @DCT . ADDR, o4 
0000006 oJ @DCT . ADDR 
990036 MOV 14(SP).-(SP) 
1 MOV 8106, -(SP) 





-_—_——a— 


VAX-11 Bliss-16 V4.1-5862 Pege 196 
DISKSUSER2: 


: (MLYNAR . ZRQ)ZROAHO.6L1;4 


: ASSIGN CMD REF NUM 


CMD REF NUM CHIGH ORDER) 


ADDR OF NEXT COMMAND SLOT 
WAIT TILL NEXT SLOT HOST OWNED 


NO INTERRUPTS WHILE POINTERS UPDATED 
22Z 


LOAD BUFF DESC (LO) INTO COMMAND SLOT 
ADVANCE TO NEXT 

LOAD BUFF DESC (HI) INTO COMMAND SLOT 
CLEAR INTERRUPT FLAG IN CASE SET 

VE OWNERSHIP TO ne beet 
ADVANCE TO NEXT COMMAND SL 


IF BEYOND END OF CRING 
! CYCLE BACK TO BEGINNING 


! RESTORE CR_NEXT POINTER IN DCT 

': INCR @ OF COMMANDS IN CRING 

tIF MSCP COMMAND 222 
'DECR CREDIT BALANCE 22 

‘ READ IP TO FORCE PORT TO POLL 

' LOWER PRIORITY 


: IF DEVICE IS NOT ONLINE 
! ROUTINE SEND 


: INDEX,« 





18: 


4s: 
5%: 


eh ed ies) CELE E rer ie he it be be PEEL FEY 









PC.8L SUL 
CSP )+.CSP)- 
MSCP _PKT+22(RO). 06 


108 
14(SP) =£sP> 
#106, sts? 


RO — 
(SP)+.(SP)- 
RO 





RO,CRN.LOW 
RO.NSCP. -PKT+12(R2) 


HIGH. MSCP .PKT+14(R2) 
DCT. ADDR .RO 








SEQ 02135 


WAX-11 Bliss-16 Vv@.1-Sa2 Page 
DISKSUSER2 : 


197 
> (MLYNAR . ZRQJZROAHO.BL1;4 (63) 


; INDEX,« 6936 

| 
: = 
3 693 
: 6 





















SEQ a 
WAX-11 Bliss-16 V4.1-S82 bane 198 
DISKSUSER2: [ML YNAR . ZRQ)ZROAMO.BL1;4 (63) 
: : *, e(SLOT.ADOR) 6970 
3 6972 
: @. CUR PRIORITY 
31 8 6974 
MSCP .PKT(R2).(R1)+ : @,SLOT.ADOR 69 
MSCP .PKT+2(R2). (R1) ; @, SLOT. ADDR 6978 
€40000. (Ri : @,SLOT.ADOR 6979 
#100000, (Ri)- : #,SLOT.ADOR 6 
DCT. ADOR. RO ; 698 
RI. 12CRO) ; SLOT. ADOR,« 
10(RO),R1 ; @,SLOT.ADOR 6 
8s: Ri 20cRO) ; SLOT. ADDR, « 6 
NSCP.PKT+11(R2) : 6 
3 6 
a ; CUR.PRIORITY,«@ 6 
#1,R0 9 
113 $ 
108: RO 
118%: CSP) ; 6 
PC 





ts Routine Size: 143 words Routine Base: %sCODES + 7046 
1 Maximum stack depth per Invecetion: 10 words 


' 


- hw eee ee eee 


——_ - re 





BRE AK 
until .100G_IN neq .10DQ@_OuT; 


104422 


= 


ine Size: 6 words, 


Maximum © 


7011 1 


j 
t 


eck depth per invoc 


ation: 


WAIT: : 
1%: 





2 words 








SEQ 0215 


DISKTUSERD: [PA TNAR: SRETEROANO.0.1;4 veer 133 


— 


: 


HEL 





ee 





SEQ 0216 
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GLOBAL ROUTI°ES 10-Oct-1985 09:31:20  DISKSUSER2:[MLYNAR ZRQTZROAMO.8L1:4 cass 
GLOBAL ROUTINE MODULAS (LO_LINIT. HI_LIMIT) - ¢Zzz 
f+ THE PURPOSE OF THIS ROUTINE IS TO GET A RANDOM NUMBER BETWEEN 1335 
{ THE LOW AMD HIGH LIMITS. THIS SHOULD WORK FOR A 16 BIT WORD. ‘272 
‘- THE “MOD” FUNC ONLY WORKS ON 15 BITS. zzz 
'27Z72 
‘VARIABLE FOR RANDOM WD TABLE '272 
LOCAL ANSWER” WORD, iF 1272 
SAVESZ : UNSIGNED WORD, ‘SAVES SIZE OF WINDOW '222 
SIZE : UNS WORD; !SIZE '222 
'222 
!Z222Z 
X= Mod '222 
.% GEQ RDM_LEN 1277 | 
HEN X = 0; ‘KEEP ROTATING RANDOM NUMBERS USED '222 | 
!Z2Z ) 
SIZE « .HI LIMET = - -LO_LIMIT '222 
5 Wes =" re E LEON ab CO LIMIT: 1222 | 
, SIZE ou #0: 077777" } ‘IF BIT 15 NOT SET '222 | 
HEN (.RANDOM [.X] AND #0’ 077777") MOD (.SIZE + 1)) '22Z 
Y 15 BIT WD, SO TAKE RANDOM SAMPLE !7727 
ELSE 122Z 
BEGIN ‘222 
SIZE = .SIZE ¢ -1; ‘MAKES SIZE A 15 BIT LENGTH, OR DIV BY 2:222 
ANSWER = (.RANDOM [.X] AND #0'077777') MOD (.SIZE +1); 1222 
GIVES = BIT RANDOM 1222 
ANSWER = . ANSWER ft TO REGULAR SIZE '222 
ANSWER = “ANSWER + (RANDOM fit BIt 6 533 
Tre e. GTRU SAVESZ). 'ITS POSSIBLE TO SE 1 LARGER THAN SIZE !2272 
.SAVESZ; !SO CHECK. Z2z 
RETURN GNBUER, : 
END; !END MODULAS ROUTINE 1222 
X: .BLKW i 
.SBTTL MODULAS GLOBAL ROUTINES 
0000006 MODULAS: : 
JSR R1, $SAVE2 ; 7013 
TST -(SP) 
007520' INC x ; 70 
007520' 0v0020 Cre x, €20 ; 7027 
007520' CLR : 70 
000012 is: MOV 12(SP),RO ; HI.LIMIT,« 70 
000014 SUB 14(SP).RO ; LO.LIMIT.« 
MOV RO,R ’ *, SIZE 
MOV RO. (SP) ; *#, SAVESZ 7031 


ee oT OO aT, tT EE TEE LL 





ZRQAM2 
vo2.3 


° 
~ 
a> 
ae 


000166 000207 


: Routine Size: 
; Maximum stack 


RD/RX EXERCISER 
GLOBAL ROUTINES 


007520’ 
077777 
000000G 
100000 
000000G 
2s: 
000000G 
100900 


000000G 
007520’ 


000002G 
177776 
000004 


000004 
000006 3$: 


60 words, Routine Base: 
depth per invocation: 7 wor 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 
MOV x,RO 
ASL RO 
CMP R1. 877777 
BHI rs | 
MOV RANDOMC(RO). -(SP) 
BIC #100000, (SP) 
MOV R1.-CSP) 
INC (SP) 
JSR PC .6L$MOD 
BR 3$% 
ASR 
MOV RANDOMCRO), -( SP) 
BIC #100000, (SP) 
MOV R1,-CSP) 
INC (SP) 
JSR PC .BLSMOD 
ASL RO 
MOV xX,R1 
ASL Ri 
MOVB RANDOM+2(R1),R2 
BIC #177776,R2 
ADD R2,RO0 
MOV 64 .R1 
ADD SP ,.R1 
CMP RO,R1 
BLOS 3$ 
MOV 4(SP).RO 
ADD 66 .SP 
RTS PC 
$CODE$ + 7522 


VAX-11 Bliss-16 V4.1-582 
OISKSUSER2: (MLYNAR . 


+, ANSWER 


SAVESZ,* 
ANSWER, « 


SAVESZ, ANSWER 


ZROQIZROAHO .BL1;4 














SEQ 0218 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-S82 Peoe 202 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20  DISKSUSER2:[MLYNAR.ZRQ)ZROAHO.BL1;4 "(ees 
i rose : Sebttl ‘ERROR MESSAGE SUBROUTINES’ 
; 7050 1 routine EMS_SA : novelue « 
oo 
| A 
7053 1 ‘ THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM “SA_REG" WHICH CONT 
; 7058 1 THE CONTENTS OF THE SA REGISTER. — 
: 7055 1 !- 
P 7 i 
‘ a H begin 
| 
7 5 if .SA_REG eql so’ 177777' : IF CONTROLLER TIME-OUT | 
: 709 3 if .SAREG eal LER TINE-OU | 
7062 3 BRENTX CCRLF 
i 67063 «3 PRINTX CASTERTSK); 
; 7064 3 PRINTX X (.CNTR_ERR [0)); | 
: 7065 § : | 
e Pe a 
+ Toe? 3 
1 7068 if (.SA_REG end #0'003777') lequ 22 ! IF GENERIC CONTROLLER ERROR 
| then 
7070 in 
; 7071 3 PRENTX (CRLF 
; 7072 3 PRINTX CASTERESK); 
F 7073 § PRINTX (.CNTR_ERR (.SA_REG and s0'003777' )); 
. F 
, 6 Ls A 2 else 
| : 7077 : if (C.SAREG and #0'003777') - 400) lequ 6 ! IF RDRX SPECIFIC CONTROLLER ERROR 
70 : in 
PY a PRENTX CCRLF) 
; 7081 3 PRINTX CASTERISK); 
<2 3 PRINTX (.RORX_ERR [(.SA_REG and s0'003777") - 4001); 
; 
$ 7 2 
+ 1085 2  WPRINTX (EX_SA, .SA_REG):; ! JUST PRINT CONTENTS OF SA 
. $ EMS_TIM (); 1 TIME 
r 7068 1 end; 
.SBTTL €MS.SA ERROR MESSAGE SUBROUTINES 
rH SSA: OtCGAme aa 7930 
at Metin CHP OtiéRk+«@-1- ; 
BNE is 
0 MOV @CALF , -(SP : 7 
9 ooooL” MOV #1. -(3P) 
MOV SP RO ; SP,« 
: TRAP s«iS 
1271@ 0000006 HOV @ASTERISK, (SP) : 706 





ee ee ew eee 





See me. 
BL1;4 (66) 


-i- 


“2RO}EROANO. 


OISKSUSER2 : [ML YNAR 


VAX-11 Bliss-16 V4 





: 


$# fe F 





% % S § a: cs rn 
i s : 
4, 5 S Ne 
Ms gc 2h x of as & S. < 
& fo 6. z6 ‘3&6 2 a6, 
va ave aef "Enis iB Ne oie ¢ sve Bre 
sani canases SRS SASS essa Res ees Aedcanste 





BRSRBRSGRSREBERS BEES PSUREDS SPESRYDEDE BOSS SeaseEE ES BBE 





oT) or) 
bad el 
~ " 


4$: 


; og .. 4. i Magee | 
: agnndas $333 amSssumes <3 $3 
segseyexs 
— 








eo 
(66) 


SEQ C220 
-€1,.4 


TRO] ZROAMO 


Hebhs tits 





P 
g bys 


Mune tut 


pe agpy 





A A ra ei 


S3 


AN I I I I I IS SSS SSS 





40 
14 


INN NAA ANN A A SS ISIS 


RO/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 


routine EMS_S8Ci1 (eddr): novealue = 


o 


*@ *@ *@ te tere 


ST_ : word, 
Bie | Sr 


ref block [RP_LEN, word] field (RP_FIELDS); 


RP * ,addr ! MMM 
$1 “CODE ° “RP_ADOR [STsCOD}: : MMM 
$B_c * ,RP_ADDR [(SUBCOD); ' MMM 
if €.ST_CODE or .SB_CODE) neq 0 


PRINTX CEX_SB); 


selectoneu .ST_CODE of 
set 


T : i 
etiam f°" Sa_cove lequ 16 


PRINTX (.TBL_SUC [.SB_CODE)); 
if .SB_CODE eqlu 32 


PRINTX (.TBL_SUC [17)); 
if .SB_CODE eqlu 64 


PRINTX (.TBL_SUC [18)); 
end; 


(ST_CMD): PRINTX (EX_SBO, .SB_CODE / 8); 
(ST_ABO): ; 
(ST_OFL): LO a ae lequ & 

PRINTX (.TBL_OFL [.SB_CODE)); 
(ST_AVL): : 
(ST_MFE): if .SB_CODE lequ 10 


VAX-11 Blies-16 V4.1- 
DISKSUSER2: (ML YNAR 





! MMM 
! MMM 
! RETURN PACKET ADDRESS MMM 


: PRINT SUB-CODE ONLY ON ERROR 


! SUB-CODE : 
'MMM ADDITIONAL SUBCODES 
'MMM 


: SUCCESS SUB-CODES MMM 
: SUCCESS SUB-CODES MMM 


'MMM 
'MMM 


! INVALID COMMAND 
! COMMAND ABORTED 
! UNIT OFFLINE 


! UNIT AVAILABLE 
! MEDIA FORMAT ERROR 


. ZRQ -8L1;4 


—- 


—_ - 
PP APPA ALAILAI LSS SSMOSSOSSSSSSSSSeS eee eeeueeeeuneneansnauauas 


Z RD/RX EXERCISER 
vo2.3 MESSAGE SUBROUTINES 
7143 3 
7144 3 
7145 3 
71 4 (ST_weT}: 
Hae 4 
yias 4 
71 4 
7 4 
7 4 
Hi 
f (ST_CMP}: 
{ST_DAT}: 
7 
7160 
716 (ST_HST): 
; 62 ; 
f 6 
f 66 (ST_CNT): 
7 
7 
7 i (ST_DORV]): 
7170 
717 
Hi | 
717 (otherwise): 
7174 tes; 
7175 
7 Lh 
717 ‘MMM 
7 Ls ' MMM 
717 
7 'MMM (ST_SUC): 
7 ‘MMM 
y 'MMM 
7 : 'MMM (ST_CMD): 
'MMM (ST_ABO): 
1" 1M (ST_OFL): 
7 'MMM 
7 'MMM 
719 
Hk MMM (ST_AVL]}: 
7194 'MMM (ST_MFE): 
7195 'MMM 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


i 





PRINTX (.TBL_MFE [.SB_CODE)); 


TF?" Se_CODE ealu 


i 


PRINTX (.TBL_WPT [3)]); 
if €.SB_CODE / 128) lequ 2 


PRINTX (.TBL_WPT [(.SB_CODE / 128))); !MMM 
3 'MMM 


i 


if .SB_CODE lequ 


i 


15 


PRINTX (.TBL_DAT (.SB_CODE])); 


if .SB_CODE lequ 


i 


4 


PRINTX (.TBL_HST [.SB_CODE)); 


if .SB_CODE lequ 


i 


3 


PRINTX (.TBL_CNT [.SB_CODE)); 


if .SB_CODE leaqu 


PRINTX (.TBL_ORV [.SB_CODE])); 


PRINTX CEX_SBO, 


case ees from ST_SUC to ST_DRV of 
se 


if .SB_CODE lequ 


.SB_CODE); 


16 


PRINTX (.TBL_SUC [{.SB_CODE)); 


PRINTX CEX_SBO, 
; 
if .SB_CODE lequ 


-SB_CODE / 8); 


PRINTX (.TBL_OFL [.SB_CODE)); 


3 
if .SB_CODE lequ 
then 


10 


VAX-11 Bliss-16 V4.1- 
DISKSUSER2: [MLYNAR. 


MMM 
! WRITE PROTECTED 


COMPARE ERROR 
DATA ERROR 


HOST ACCESS ERROR 


CONTROLLER ERROR 


DRIVE ERROR 


JUST PRINT SUB-CODE IF NO MATCH 


SUCCESS SUB-CODES 
INVALID COMMAND 
COMMAND ABORTED 


UNIT OFFLINE 


UNIT AVAILABLE 


MEDIA FORMAT ERROR 


SEQ 0223 
VAX-11 Bliss-16 V4.1-582 


RD/RX EXERCISER Page 207 
ERROR DISKSUSER2:(MLYNARZRQ)ZROAHO.8L1:4 (67) 


10-Oct-1985 09:32:06 
MESSAGE SUBROUTINES :20 


10-Oct-1985 09:31: 


——— A IS 





Mas 2] PRINTX (.TBL_MFE [.SB_CODE)); 
hat (ST_weT}: if (€.SB_CODE / 128) lequ 2 ' WRITE PROTECTED 
suet PRINTX (.TBL_WPT [(.SB_CODE / 128))); 
‘MPM (ST_CeP}: : ' COMPARE ERROR 
' MM {ST_DAT]}: if .SB_CODE lequ 15 ' DATA ERROR 
$r4M then 
‘MMM PRINTX (.7BL_DAT [.SB_CODE)); 
‘MM (ST_HST}: if .SB_CODE lequ 4 ' HOST ACCESS ERROR 
1 MMM tren 
alate! PRINTX (.TBL_HST [.SB_CODE)); 
1 MMM (ST_CNT]}: if .SB_CODE lequ 3 ! CONTROLLER ERROR 
14MM then 
' MMM PRINTX (.TBL_CNT [.SB_CODE)); 
Hy (ST_ORV): if .SB_CODE lequ 8 ! DRIVE ERROR 
1 MMM PRINTX (.TBL DRV [.SB_CODE)); 
1 MMM {outrange): PRINTX CEX_SBO, .SB_CODE): ! JUST PRINT SUB-CODE IF NO MATCH 
1 MMM tes: 
end; 
end; 
.SBTTL EMS.SBC1 EPROR MESSAGE SUBROUTINES | 
000000G EMS .SBC1: 
JSR R1, $SAVE2 : 7 
000010 10( SP) ,.RO ; ADOR,RP.ADDR 71 
S33 44 CRO),R2 ; *C(RP.ADDR),ST.CODE 71 
; 40 BIC #177740,R2 ; *,ST. 
16 MOV 16(RO),R1 ; *#C(RP.ADOR),.SB.CODE 711 
ASR Ri ; SB.CODE 
ASR RL :; SB.CODE 
ASR Ri ; SB.CODE 
ASR R1 : SB.CODE 
ASR Ri ; SB.CODE 
MOV 1,.R0 : -CODE , « 711 
BIS R2,RO0 ; ST.CODE,« 
BNE 1$ 
RTS PC 
is: MOV EX .SB,-(SP) : 711 
000001 MOV #1,-(SP) 
RO 3 SP ,« | 
TRAP 1 


SEQ 0224 
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SUBROUTINES 10-Oct-1985 09:31:20 DISKSUSER2:([MLYNAR.ZRQ)ZROAHO.BL1;4 (67) 
TST R2 : ST.CODE 7120 
BNE 4s 
000020 CMP R1.€20 ; SB.CODE,« 7121 
MOV R1.RO ; SB.CODE,« 7123 
ASL RO 
000000: MOV TBL .SUCC(RO). (SP) 
000001 MOV #1, -(SP) 
MOV x ; SP,« 
TRAP = «iS 
TST (SP)+ 
000040 2s: CMP R1. e40 ; SB.CODE,« 7124 
000042’ MOV TBL .SUC+42, (SP) : 7126 
MOV SP, 3 SP ,« 
TRAP sii 
TST CSP )- 
€00100 33: CMP Ri. 100 ; SB.CODE, « 7127 
000044’ MOV TBL .SUC+44,(SP) : 7129 
000001 MOV #1, -(SP) | 
MOV SP, : SP ,* 
TRAP = «43S | 
BR 12$ 
000001 4%: CMP R201 ; ST.CODE,« 71 
BNE 6$ 
000010 MOV etd CoP) a 
9000006 JSR —s- PC, BLSDIV | 
MOV Ro. CSP) 
0000006 MOV #€) .SB0, -(SP) | 
000002 MOV @2,-(SP) 
MOV SP, ; SP ,« 
TRAP 3=s_s«3S 
000006 ADD 86,SP 
011110' S$: JMP 173 } 711 
68: CMP R2, #2 ; ST.CODE,« 7134 
BEQ 5$ ; 7117 
000003 CMP R203 ; ST.CODE,« 7136 
000010 Crp Ri, #10 ; SB.CODE,« 
MOV R1i,RO ; SB.CODE,« 7138 
ASL RO 
000046: MOV TBL .OFL(RO). (SP) 
000001 MOV #1, -(SP) 
MOV SP, ; SP,« 
TRAP 15 
BR 15$ 
000004 73: CMP R2, ; ST.CODE,« 7140 
BrQ 17$ : 7117 
000005 CMP R2,e5 ; ST.CODE,« 7142) 








— 


VAX-11 Bliss-16 V4.1 a 


:06 -S82 age 
7:31:20 DISK SUSER2 : [ML YNAR . ZRQ)ZRQAHO.BL1;4 (67) 





10-Oct- 
BNE 8s 
cmp R1.¢12 : SB.CODE,« 
BHI 7$ 
~ 4 1,R0 ; SB.CODE,« 7144 
MOV TBL .MFECRO).(CSP) 
MOV #1.-(SP) 
MOV SP .RO . SP ,« 
TRAP 15 
BR 15$ 
8s: CMP R2, 06 ; ST.CODE,« 7146 
BNE 10$% 
CMP R1, 010 ; SB.CODE,« 7147 
MOV TBL .WPT+6,(SP) : 7149 
MOV #1,- 
MOV SP .RO ° SP ,* I 
TRAP 15 
TST (SP )+ | 
9%: MOV R1,CSP) ; SB.CODE,« 71 
MOV #200, -( SP) 
JSR PC .BL 
TST (SP)+ 
CMP RO,¢ 
BHI 17$ 
ASL RO : 71 
MOV TBL .WPTCRO),(SP) 
MOV @1,-(SP) 
MOV SP ,RO Py SP ,* 
TRAP 15 
BR 15% 
10%: CMP R2,07 ; ST.CODE,« 715 
BEQ 17s : 7117 
CMP 1 oe ; ST.CODE,« 715 
CMP R1, 017 ; SB.CODE,« 
BHI i7$ 
yr 4g R1,RO ; SB.CODE,« 715 
MOV TBL .DATCRO), (CSP) 
MOV #1,-C(SP) 
MOV SP RO Hy SP, 
TRAP 15 
BR 15% 
11%: CMP R2,011 ; ST.CODE,« 7161 
BNE 133 
CMP R1,04 ; SB.CODE,* 
BHI i7$ 
MOV R1,RO ; SB.CODE,« 7163) 
ASL ro 
MOV TBL .HSTCRO), (SP) 
MOV #1.-CSP) 
MOV SP ,RO ; SP,« 


—_ — a 


A aw 








| Retlaos Sees ee Se cet’ 


ee 


14%: 


15%: 
16%: 


173%: 


Base: 
10 words 


PEPE EEROPEEEEET EE BEE eit hr 


RTS 





RO 

TBL .CNTCRO).CSP) 
#1. -(SP) 

SP, 

1S$ 

R2,413 

16% 

R1,¢10 

17$ 

R1,RO 

RO 

TBL .ORVCRO). CSP) 
#1, -CSP) 


$CODE$ + 10224 


— ee 


VAX-11 Blies-16 V4.1-5862 


DISK SUSER2: (ML 


: ST.CODE,« 
: SB.CODE,« 
; SB.CODE,« 
:; SP,« 


; ST.CODE,« 
:; SB.CODE,« 
:; SB.CODE,« 


i SP ,* 


; SB.CODE,« 


¢ SP ,* 


SSS etipeetipepntpenenne _ 


711 
70 


mt 
“i 


ow NESSES “BEE 3 ~E~E ~3~E ~E~2~8~3~2~3 ~2~3~2~2~3~3~3~P~B~I~I~IB~I~L III IIe 
~s Ai Lo Sn, Sn i i a oe oe + oe we one ae an ne ee 
. aan ip een a eee ot he | 


VEN 
~~ 


a hachanananan eee 
we 
2 be me pe pee 


Pm a> 


: 





SEQ vee! 











RD/AX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-S5é82 Pege 211 
ERROR MESSAGE SUBROUTINES 10-Gct-1985 09:31:20 DISK SUSER2: [ML YNAR . ZRQ)JZROAHO.BL1;4 (68) 
routine EMS_CMD1 (eddr) : novelue = : ea 
Se 
g 
$ 
$ 
¢ 
f- 
begin 
loco}, 
ADDR : ref block [(RP_LEN. word] field CRP_FIELDS); ! RETURN PACKET ADDRESS MMM 
RP * ,eddr ' MMM 
PRINT CEX_EMD); ! "COMMAND: * 
selectoneu (.RP_ADDR [ENDCOD] and OP_NSK) of 
(OP ONL}: PRINTX CEX_ONL); ! ONLINE 
(OP ACC): PRINTX CEX_ACC); ' ACCESS 
{[OP_RD) in 
PRENTX CEX_RD); ' READ 
1 MMM if .RP_ADDR [CMDMOD) nea 
if ¢.RP_ADDR [CHDMOD) snd MD_CMP) neq Oo !MMM 
PRINTX CEX_CMP); ' COMPARE 
end; 
OP _WRT) in 
; : PRENTX CEX_WRT); : WRITE 
1 MMM [CMDMOD) neq 
iP ¢°RPLADDR’ ECHOMODI"ana MD_CHP) neq 0 'MMM 
PRINTX CEX_CMP); ! COMPARE 
end; 
otherwise): PRINTX CEX_OP, .RP_ADDR [ENDCOD)); ! ENDCODE VALUE IF NO MATCH 
8; 
end; ! ROUTINE EMS_CMD1 
-SBTTL EMS.CMD1 ERROR MESSAGE SUBROUTINES 
000000G EMS .CMD1: 


SSS tnt —-— 


-_ -— -_ —-< 


f 





g 
2 


: 
5 


AERIS iB LS 


18%: 


EGRCEreLEL Gre EEL PRreee Merete PEreeeErRreeeh reer eee 





EX. WRT, CSP) 
#1, -(SP) 
SP ,RO 


» | 
#40000, 12(R1) 
S$ 


——_—_——— + ——_— <- -— 


VAX-11 Bliss-16 V4.1- = 
DISK SUSER2 : (ML YNAR . ZRQ)ZROAHO.BL1;4 


z SP ,@ 
; *(RP . ADDR), @ 


; SP,« 
; *,*CRP.ADDR) 


é SP ,* 


é SP ,* 
‘ #,*(RP.ADOR) 


i SP ,* 


*(RP.ADDR),« 





7267 


ress 
7275 





SEQ 0229 
10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 Pege 213 
10-Oct-1985 09:31:20 DISKSUSER2 : [ML YNAR . ZRQ)ZRQAHO.8L1;:4 (68) 
@2.,-(SP) 
SP .RO ; SP,e 
15 
CSP )«.CSP)+ 
CSP )+.CSP)+ 3 7238 
PC 3 7229 


< 
w 


33 


SN SII IIS ISS SSS 


PRSeReS iSite tite 


= [= SF Ge Ge ae Ge Ge Ge Ge Ge ee Ge Ge Ge Ge Ge Ge as 
Oe ee ee ee ee oe ee ee be be pe 









EXERCISER ©-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-S82 age 214 
ERAOA FESSAGE SUBROUTINES 10-Oct-1985 99:3h 250 DISKSUSER2: [MLYNAR | 2RQ)ZROAHO.BL1;4 (69) 
‘HMMMGLOBAL ROUTINE EMS_DBN : NOVALUE - 222 
y THIS ROUTINE PRINTS THE PRESENT DBN i272 

IMPL IMPuTS: ‘222 
rr oll ane - codmees @ euemaaan Staves Teme i222 
'222 
oes 
, .COISK) 
CxS, “EST ABR (.CUOFF ; OF _DBN, D_DBN ($222 
XX32, .S_DUPPKT -"2); 1227 
rss. ‘tent 's diane CDUPPKT + S-DUPPKT) 04 SPRINT THe GORD READ 1222 
. * «3. ee Pe ; ° ° 
(OUPPKT +2, 256); {PRINT WHOLE BLOCK READ 222 





_—  —_——— = - 


a e 


A TT 





SEQ 6231 









— 
SS Se Se Se Se oe Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ce Os 


ZRQAM2 RO/RAX EXERCISER 10-Oct-1985 09:32:06  VAK-11 Bliss-16 v4.1-S82 Pege 215 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISKSUSER2: [ML YNAR.ZRQ)ZROAHO.8L1;4 (70) 
7 1 
7 : GLOBAL ROUTINE EMS_BLK (ADDR. LENGTH) : NOVALUE = 222 
7 ‘ '222 
7 t : ROUTINE WILL PRINTX A BLOCK OF MEMORY. WHICH IS ‘LENGTH’ !2722 
7 1 ‘ LONG STARTING AT ADDRESS ‘ADDR‘. PRINTING IS DONE IN OCTAL!222 
7 1 ‘ 8 WOS TO A LINE. '222 
7 i f- ‘222 
, ‘i 
7 orf : 
7 MASK = so’7’; '222 
7 '222 
7310 PRINTX (CRLF) 'Z7Z7Z | 
U INCR COUNT FROM 1 TO .LENGTH DO *©OR EACH WD TO PRINT 222 | 
q ((.COUNT - 1) AND MASK) EQL O !IF START OF NEW LINE t22z | 
q PRINTX (SPACE4); ‘PRINT 4 BLANKS 222 
7 PRINTX (EX_WRD. .. ADDR); 'PRINTX A WORD '222 
7 ADDR = .ADDR «2; 'TO NEXT ADDRESS oes 
4 IF (((.COUNT AND MASK) EQL 0) OR 'END OF LINE OR '222 
4 (.COUNT EQL .LENGTH)) ‘WHEN DONE i22z 
; PRINTX (CRLF); 'PRINT CR LF 12722 
: END; '222Z 
7 END; '2722 
nae .SBTTL EMS.BLK ERROR MESSAGE SUBROUTINES 
enone MOV ORL. -CSP) ; 7 
MOV A ¢ H 7 i 
MOV #1, -(SP) 
MOV SP .RO o SP ,* 
TRAP i5 
CLR Ri ; COUNT 7311 
BR S4 
is: MOV R1,RO ; COUNT,« 731 
DEC RO 
BIT #7,RO 
BNE 2% 
MOV @SPACE4, (SP) ; 731 
MOV @1. (SP) ~ 
a »* 
+ a 4 
TST (SP)- 
28: MOV @12(SP),(SP) ; ADDR, « 7317 
MOV EX .WRD, -(SP) 
MOV @2, -(SP) 
MOV SP .RO ; SP,s 





_- ——.—-. <» 








ine $i 
muse ot 


| We t 


2@° 
eck 





53 words, 
depth per 


TRAP 
ADD 
SIT 
BES 
oP, 
BNE 
34: MOV 
"Ov 
mov SP .RO 
TRAP 15 
TsT (SP )- 
4%: cop CSP )-.(SP)- 
S$: a Ri 
R1.10( SP) 
SLE is 
CHP CSP )<.CSP)- 
"OV CSP)-.R1 
RTS PC 


Routine Bese: sCODES + 11374 
invecetion: 68 words 





VAX-11 Blies-16 V4.1- — + 

DISK SUSER2: (ML YNAR . ZRQ -6L1;4 (70) 
e, ADOR 7318 

: ©: COUNT 7320 

; COUNT.LENGTN 7321 

: 7323 

; SP .e 

; 7 

; COUNT wit 

: COUNT .LENGTH 

: 7 

3 7 























, SEQ 0233 
ERROR FESSAGE SUBROUTINES 10-Oct-1965 O9:31.20 _ DISKTUSERD TA MAR TRE TEROANO.OL18 mats 
3; routine O75 _18M1 (eddr) : nowalue - : et 
£} f° 
ii 
hi} $ 
4h} : 
Al, $ i 
4} : , 
is ‘ 
i +t $- | 
a 
17} _AOOR ; ref block (RP_LEN, word) field (RP_FIELDS); ! RETURN PACKET ADORESS ret 
if RP_ADOR © .addr; : rem 
A 
iE foot SELTET SA808 (RSE): aE = HF No a0 m.00% roe 
tf PRINTX CEX.LON2, .AP_ADOR (LBN_HI}, .RP_ADOR [LBN_LO}): 1222 
i \* test SET-W $BBa PPR LEASE): EF BORD? ane ! IF BAD BLOCKS FOUND AND REPLACED 
tf PRINTX CEX_8BU2, .RP_ADDR [BBLK_HI}, .RP_ADDR [BBLK_LO)); 1222 
) U SREL TE AB S OBP Lst IF WOST REMLACEHILE AD eLoEK FOU 
i‘ PRINTX CEX_882, .RP_ADOR [BBLK_HI}, .RP_ADOR (BBLK_LO)); 1222 
if (OTT_1ST (RP_ADDR [FLAGs). EF B88) ond ! IF MORE THAN 1 HOST REPLACEABLE BAD BLOCK FOUND 
ng, PRENTX (EX_6812, .RP_ADOR [B8BLK_HI), .RP_ADOR [8BLK_LO)); 1222 
ens.veny:S27T ENS-LBNL ERROR MESSAGE SUBROUTINES 
R1, $SAVES : 7 
000012 ),Ri 3 ADOR,RP .ADOR 
000015 Ray ; @C(RP. ADDR), « 
000100 is: #100 .R2 r 7 








ZROAM2 


uk 


8 
e 


AANAVRG 


338838 
NOBVANASS 


2 O-~I-~J 






+ Routine Size: 
+ Maximum stack 


epee 


RO/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 


000050 
000052 


000010 


81 words, 
depth per invocation: 


2s: 


3%: 


4$: 


5$: 


6$: 


Routine Base: 
10 words 


MOV 
TRAP 
ADO 


RTS 


#10,SP 


$CODE$ + 11546 


VAX-11 Bliss-16 V4.1-582 


P 
DISKSUSER2: (ML YNAR . ZRQ)ZRQAHO.BL1;4 


om 
a” 
“~ 
ee... 
a 
ee 
** 


. *(RP.ADDOR),« 
3 *(RP.ADDR),« 


’ SP ,* 


; *C(RP.ADDOR),« 
a *(RP.ADDR),« 


; SP,« 


735 
735 


; 


t Routine Size: 
+ Maximum stack 


ZR 
vo2.3 
P 7371 1 
$ 737 1 
5 737 1 
P 7374 i 
; 7375 1 
; 7376 1 
; 7377 i 
| 7376 #1 

is 7379 1 
s 73860 1 
' 73861 2 
$ 73862 2 
$ 7363 2 
; 7384 2 
; 7365 2 
| Fer 3 
‘ 
, +H 1 
000000 010146 
000002 01660 
000006 016146 
000012 012746 
000016 012746 
000022 rf 
000024 1 15 
govegs 016116 

2 12746 

poset, 012746 
000044 ttt 
000046 062706 
99954 012601 
0000 207 


' 73869 #1 


RO/RX EXERCISER 


ee 


ERROR MESSAGE SUBROUTINES 


routine EMS _8C1 (addr) : novalue = 


= ©@ ©@ *@ @ se 


RP_ADOR = 
PRINTX CE 
PRINTX (EX “be. 
end 


000002 


000012 


23 words, . 
depth per invocation: 


Routine Sase: 


: ref block [RP_LEN, word] field (RP_FIELDS); 


.RP_ADDR [CBCNT_LO}) 
CBE. RP ADD (BCNT_LO)); 


——— ee ee lee — —— — 


SEQ 0235 
VAX-11 Bliss-16 V4.1 Page 219 


10-Oct-1985 09:32: 
DISK $USER2: (ML YNAR. 7Ra}ZROAHO. BL1;4 (72) 


06 
10-Oct-i985 09:31:20 


THIS ROUTINE PRINTS Sy a — BYTE COUNT FIELDS OF THE 
ACKET: THE BYTE C FROM THE COMMAND PACKET 
ACTUAL NUMBER OF BYTES TRANSFERRED CFROM THE RESPONSE PACKET). 


AND THE 


! RETURN PACKET ADDRESS MMM 


MMM 
! “BYTE COUNT IN COMMAND: XXXXX.” 
' “ACTUAL @ OF BYTES TRANSFERRED: XXXXX. ” 
' ROUTINE EMS _BC1 


-SBTTL EMS.BC1 ERROR MESSAGE SUBROUTINES 

EMS .BC1:MOV R1,-CSP) ; 737 
MOV 4(SP),R1 ; ADOR,RP.ADDR 738 
MOV 44(R1),-CSP) ; *C(RP.ADOR),« 7386 
MOV #EX.CBC, -( SP) | 
MOV #2,- 
MOV SP, ; SP,* 
TRAP 15 
MOV 20(R1),(SP) ; *CRP.ADDR),+* 738 
MOV @EX.BC.-CSP) 
MOV SP, ‘ SP ,* 
TRAP 
ADD #12,SP 
$CODFE$ + 12010 

8 words 


5 
° H 73861 
MOV CSP)+,R1 : 737 
RTS PC 
| 


ee 


—_— —— - ee ~~ — — -_-- —— — 


SEQ 0236 


ZRQAM2 RD ‘RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-582 Page 220 
vo2.3 ER“OR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZROAHO.BL1;4 (73) 
P 7390 1 
: 7391 i routine EMS_BD1 (Caddr) : novalue = ' MMM 
a: Soo 
; 7394 «3 ‘ THIS ROUTINE PRINTS CEXTENDED) THE TWO-WORD I/0 BUFFER DESCRIPTOR 
s 7395 : : APPEARING IN THE RETURN PACKET 
$ 396 1 ' 
1396 5 = begi 
in 
; 7399 3 
t 7400 2 locel 
; 7401 5 RP_ADDR : ref block (RP_LEN, word] field (RP_FIELDS); ! RETURN PACKET ADDRESS MMM 
; 
; 7403 2 RP_ADOR = addr; ' MMM 
‘ 7404 2 PRINTX (EX_BD, .RP_ADDR [BUFF_1], .RP_ADOR [BUFF_0)); ! "I/0 BUFFER DESCRIPTOR: XXXXXX XXXXKX" 
: 405 
t 7406 1 end; 
; 
.SBTTL EMS.8D1 ERROR MESSAGE SUBROUTINES 
000000 016600 000002 EMS .8D1:MOV ; ADDR, RP. ADOR 7403 
000004 016046 000024 MOV 24(RO), -(SP) ; #C(RP ADDR), « 7404 
000010 016046 000026 MOV 26(RO), -(SP) ; *#(RP.ADOR).« 
000014 012746 000000G MOV EX .BD, -(SP) , 
000020 012746 000003 MOV @3,-(SP) 
000024 010600 MOV SP «RO ; SP,« 
0000 062706 000010 ADD 4 7 
000034 000207 RTS PC ; 7391 
+ Routine Size: 15 words, Routine Base: ‘sCODE$ + 12066 


+ Maximum steck depth per invocation: 6 words 


7407 1 


~ 
43 

~ 

Ww 

~ 

» 

3 
phe 
~ 
°o 
o 

__ 38 


2 ee ee 





PMN UUUNUUNNNNNNNNNNNANMANDA lS bp pp pe pe pe ee 


a ee ——— ee ~_— 


SEQ 0237 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 Vv4.1-562 Pp 221i 
ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISKSUSER2: [ML YNAR . ZRQ)ZRGAHO.BL1;4 (74) 
globel routine EMS_R2 (addr) : novalue = ! MMM 
Se 
$ THIS ROUTINE IS RESPONSIBLE FOR PRINTING (EXTENDED) THE RELEVANT FIELOS 
: OF THE RETURN PACKET. 
begin 
locel 
RP_ADDR : ref block [RP_LEN, word] field CRP_FIELDS); ! RETURN PACKET ADDRESS MMM 
ADOR = ' MMM ' 
ens SBC1 ¢ RP ADDR); ' MMM | 
EMS _CMD1 ¢: “RP _ADDR); ! COMMAND CAND MODIFIER) MMM 
if (.RP_ADDR [ENDCOD) and OP_MSK) neq OP_ONL | 
then 
EMS_LBNi (.RP_ADDR); ! LBN OR BAD BLOCK NUMBER MMM 
if €C.RP_ADDR [ENDCOD] and OP_MSK) eql OP_RD) or | 
(C.RP_ADOR [ENDCOD) and and OP_MSK) eql OP_WRT) 
then 
in 
EMS_BC1 (.RP_ADDR); ! BYTE COUNTS MMM 
EMS_BD1 ( .RP_ADDR); ! I/0 BUFFER DESCRIPTOR MMM 
end; 
EMS_TIM (); ! TIME 
end; ' ROUTINE EMS_R2 
-SBTTL EMS.R2 ERROR MESSAGE SUBROUTINES 
EMS .R2: : MOV R1,-CSP) ; a 
000004 MOV 4(SP),Ri ; ADOR,RP.ADDR 7424 
MOV 1,-CSP) ; RP.ADOR, « 4 
010224’ JSR PC.EMS.SB8C1 
MOV R1,(SP) ; RP.ADDR,« 7426 
011114' JSR PC,EMS. 
000014 MOVB 14CR1),RO ; *«(RP.ADOR),« 7428 
177600 BIC #177600, 
000011 CMP RO, #11 
BEQ i$ 
MOV 1,(SP) ; RP.ADDR,« 7431 
011546' JSR C.EMS.LBN1 
000014 i$ MOVB 14(R1),RO ; #C(RP.ADOR),« 7433) 
177600 BIC #177600, RO | 


———— a ee 


RD/RX EXERCISER 


44 words, Rout 
depth per invocation: 


MESSAGE SUBROUTINES 


2s: 


3%: 


ine Base: 
3 


wor 





—_——_—_ _- 


10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


CMP RO, 041 
BEG 
14(R1),RO 
BIC #177600, 
RO, 042 
R1,CSP) 
JSR PC,EMS.BC1 
MOV R1,CSP) 
JSR PC,EMS .BD1 
JSR PC,EMS.TIM 
TST (SP )-+ 
MOV CSP)+,R1 
RTS PC 


SCODE$ + 12124 


VAX-11 Bliss-16 V4.1 
DISK $SUSER2: (ML YNAR . ZRQ)ZROAHO.BL1;4 


; *C(RP.ADOR),« 


; RP.ADDR,« 
; RP.ADOR,« 
: 





—— eae itt 








ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32: VAX-11 Bliss-16 v4. 
vo2.3 ERROR MESSAGE S'SBROUTINES 10-Oct-1985 09:31: 
; 7445 1 globel routine EMS_R1 (addr) : novalue = 
oy, ' 
; 7448 1 ‘ THIS ROUTINE IS CALLED TO PRINT THE ENTIRE CONTENTS OF THE 
; 7449 i : RETURN PACKET DESIGNATED. HOWEVER, THE PRINTING WILL ONLY 
, 7430 1 OCCUR IF EXTENDED ERROR PRINTING IS ENABLED. 
i ings 
in 
7434 2 ao. ™ 
i 8 o : RP_ADDR : ref block [RP_LEN, word] field (RP_FIELDS); 
| 7457 2 RP _ADDR = .addr; MMM 
; 76 2 at (EX_RP); ! "CONTENTS OF RETURN PACKET: ” 
; = 2 BLK (.RP_ADDR, RP_LEN); ' PRINT BLOCK OF WORDS 
$ 7460 i ona 
.SBTTL ENS. Ri ERROR MESSAGE SUBROUTINES 
010146 EMS .R1: :MOV .- ; 
016601 000004 MOV aCSPs Ri ; ADOR,RP.ADOR 
012746 000000G MOV @EX.RP,-C(SP) ; 
012746 000001 MOV #1,-C(SP 
0 MOV ° : SP ,*# 
3 TRAP 15 
red | 6 MOV R1,CSP) a ; RP . ADDR, « 
O38 39 000026 MOV #26, -CSP) 
7 011374’ JSR PC,EMS.BLK 
062706 000006 ADD ‘ : 
0 601 MOV (SP)+,R1 : 
20 RTS PC 
+ Routine Size: 18 words, Routine Base: ‘sCODE$ + 12254 
+ Maximum eteck depth per invocation: 5 words 


$n 


— ee _—— — 


06 
:20 DISK SUSER2: (ML YNAR. 7Ra}ZROAHO. BL1;4 


! RETURN PACKET ADDRESS MMM 


| 
745 
744 


VAM MN UUM UNMMUUN UND UNMUUNNUNVUNNNVNVUNMUNVVMUNNMYS me ee 


SAAN SS SAS SSIS 


ep ee 


wunrro 








SEQ 0240 
VAX-11 Bliss-16 V4. “Joan P 224 


/RX EXERCISER 10-Oct-1985 09:32:06 
ERROR 985 09:31:20 DISK SUSER2: [ML YNAR . ZRQ]ZROAHO.BL1;4 oe 6) 


MESSAGE SUBROUTINES 10-Oct-1 
globel routine EMS_El (index) : novaelue = 


THIS ROUTINE IS CALLED FROM ‘SEQUEN’ AND ‘DATAGM’ AND PRINTS THE CONTENTS OF THE 
ERROR-LOG PACKET 


para LOG PACKET'S ADDRESS 
DISK NUMBER 
CODE 





SUBCODE 
ERROR-LOG MESSAGE RECEIVED 


if €.REASON eql FORMAT_CNTR) or 
(REASON eql FORMAT_HOST) 


PRINTB (.ELG_FMT [.REASON)); ! PRINT BASIC REASON 
f €,. REASON 1 FORMAT_XFER) o 'MMM 
¢ [REASON eql FORMAT~SDI) or oe 
-REASON eql FORMAT “SDE ) ‘MMM 
PRINTS €.ELG_FMT [.REASON]), .DISK_NUM); ! PRINT BASIC REASON WITH DISK NUMBER 
if ©. REASON eql FORMAT_BRA) ! BAD BLOCK REPLACEMENT ATTEMPT MMM 
PRINTS (.ELG_FMT [5], .DISK_NUM); ! PRINT BASIC REASON WITH DISK NUMBER MMM 
if CE 06. ~£8E os gtr 0) ae 
equ 11) 
_ CASTERISK) 
X C.ERR.COD €.ELOG_CODE - 1); ' CODE 
else 
it .ELOG_CODE eql ST_DIA ! MESSAGE FROM INTERNAL DIAGNOSTICS 
PReNTX CASTERISK) 
PRINTX (.ERR_COD f112); MMM 


ee ee ee - 


- a ee eee 


eee 


-- - me ee a al ee A ee a on 















PRENTX (CRLF ) 


» | 
zZ 
 § 
ss 
an: ° s . 
“a . ; : 
ts on ie 4 3 
a ae Se ee ee 
i : : : 
or : " : § g 
cf 7 ; : - r 
2 ff 
ses 
$$ 
a8 
re 
Ge 
ge 
a 3 = ~ ~ 
P $2 8:43 an 
w & Ve .& eee ae ae. 
« $e oS fu SAG be gs. co be > 
¢ Be 38 coy 8 ce; oA eu tf By 
Ww 
1-8 = & = & = on 





pat 


N 
PRINTX CASTER 


PRINTX 
end; 





PRINTX CASTER 


end; 

ELOG 

ELOG 
bahie 

xX CCRLF) 

PRINTX 

end; 

EL 

EL 


: 
: 
es 
ee 





PRINTX (. 
end; 


PRENTX CAST 


if ¢.EL 
CEL 


then 





-ELOG 


if. 
then 

¢ 
then 
if ¢, 

- 
then 
if f 
hen 





CEN CU RAINED CUCU CUED CUI INININ CECT CUM M UNAM MMMM AUAM UMMM MANMAMAMMM Mes 


enor oa Ve . 2=VMey Qoo-vmedn< . So »Tmwo 
» ~ RARER RRRRRRR RRR RRR RR RRR RRP PEP errrreee 


vo2. 


= 


S 
“. 
w 








ae? 
1569 2 
70 3 
7571 3 
7572 3 
73 «CS 
7574 2 
7575 2 
Le a 
73577 2 
Le 4h a 
7579 

7 2 
7 3 
7 2 
7 2 
7 2 
7 2 
7 2 
7 ¢ 
7 4 
Ml 2 
191 3 
7 2 
7 i 


716 
746 





ee 


RD/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 10-Oct-1i 


f (€.ELO0G_COGE eal +4 _BRC) and 
(. _SUB lequ 4 
then 


if .REASON eql FORMAT_XFER 
then 


if .ELOG_ADDR (EL_BLOCK_TYPE] eql TYPE_LBN 
PRINTX CEX_PBN2, .ELOG_ADDR [EL_8LOCK_HI), 
01 9e RINTX CEX_RBN2, .ELOG_ADDR [EL_BLOCK_HI)., 
if .REASON eql FORMAT_BRA 
PRINTX CEX_LB, .ELOG_ADDR [EL_BLOCK_HI), 


EMS_TIM (€); 
EMS _BLK ((.ELOG_ADDR 


-ELOG_ADDR [EL_BLOCK)); 


+ 2), (C.ELOG_ADDR [EL_MSGLEN] + 1) / 2) «+ 2); 


ELOG_ADOR [EL OESNTENTS) = EMPTY; 
end; 
.SBTTL EMS.EL ERROR MESSAGE SUBROUTINES 
0000006 EMS.EL::J5R R1, $SAVES 
CMP -(SP), -(SP) 
000022 MOV 22(SP), -(SP) 
000102 MOV 102, -(SP) 
000C 0G JSR C.8L$ 
0000006 ADD @ELOG.PKT,RO 
MOV Ri 
CLR R 
sensis noe | eta 
20(R1).RO 
177740 BIC #177740,RO 
CLRB 3=saR4 
BIS RO.R4 
000020 MOV 20(R1),R3 
ASR R3 
ASR R3 
ASR R3 
ASR R3 
ASR R3 
174000 BIC #174000,R3 
0000006 MOV @ELG.00.(SP) 
000001 MOV 1. -(SP) 


vrata Bliss-16 V4. 


-ELOG_ADOR [EL_BLOCK)) 
-ELOG_ADDR [EL_BLOCK)); 


SK SUSER2 : (ML YNAR YNAR | 2RQ]2ROAHO. BL1;4 
! BAD BLOCK REPLACEMENT COMPLETION MMM 


: OUTCOME OF BAD BLOCK REPELACEMENT MMM 
! IF OISK XFER INVOLVED 


! PRINT PBN OR RBN 

!ZZZ 

!ZZZ 

: IF BAD BLOCK REPLACEMENT INVOLVED MMM 
MMM 


TIME 
! PRINTX CONTENTS OF PACKET 
! DECLARE SAVE AREA FREE 


:; INDEX,« 


*,ELOG.ADDR 
REASON 
*(ELOG.ADOR),REASON 


#(ELOG.ADOR),DOISK.NUM 
#(CELOG OG. ADDR), « 


ELOG.CODE 
*,ELOG.CODE 


S8888 
S 








———_ — 


33388 
ah 


a 


28 
~% 
we 
° 


~~ 


EEEEREE EE 


33998 
siieeetatire 


| 


BSS 







— 
one 





~~ noe SS SSS 


+> 
* 
> 






1%: 


2s: 


4$: 


6$: 





EEE Dre 


~ 
wn 
a4 


POPPELEIEE ae Serer 


ELG.FMTC(RO),-(SP) 
€2,-(SP) 


RS,(SP) 
ELG.FMT+12, -(SP) 
€2,-(SP) 


14 < 
CSP )+,CSP)-+ 

R4 

7$ 

- > halt 
@ASTERISK, (SP) 
#1,-(SP) 


15 
RO 
R4,RO 
RO 


VAX-11 Bliss- 


DISK SUSER2: 


SP ,« 
REASON 
REASON, @ 
REASON, « 


SP, 
REASON, « 


REASON, « 
REASON, « 


DISK .NUM,« 
REASON, « 


SP ,«* 


REASON, « 


> 
; DISK.NUM,« 


SP ,*# 


ELOG.CODE 
ELOG.CODE ,« 





749 


750 


7504 


SEQ 0244 
RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Pege 228 
ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK SUSER2 : [ML YNAR . ZRQ)ZROAHO.BL1;4 (76) 
177776G MOV ERR .COD-2( RO). (SP) 
MOV #1.-(SP) 
MOV SP. : SP,« 
TRAP 
BR 8$ 3 7302 
000037 7$: CMPB + * anata ; ELOG.CODE,« 7508 
000000G MOV @ASTERISK .( SP) 3 7Si1 
| » 000001 MOV #1.-(SP) 
Oo MOV SP .RO ; SP,@ 
, 0000266 MOV _—« ERR.COD+26, (SP) 75 
. +26. : i2 
000901 MOV @1, (SP) | 
MOV SP .RO ; SP, 
TRAP 15 | 
83: CMP CSP)+,CSP)+ : 
9%: CLR R2 : 
000024 CMPB R4,@24 ; ELOG.CODE,« 
BNE ° 
000000G @ASTERISK . (SP) 3 
000001 a #1,-(SP) 
MOV ° a SP, 
TRAP 15 
000034G MOV ERR .COD+34,(SP) : 
000001 MOV #1,-(SP) 
MOV SP. : SP ,* 
TRAP is 
CMP (SP )+,CSP)- : 
000005 108: CMPB ott ; ELOG.CODE,« 
000012 CMP R3.@12 ; ELOG.SUB,+« 
BHI 11$ 
808006 MOV @CRLF .CSP) ; 
1 MOV #1,-(SP) 
MOV SP RO ; SP,« 
TRAP 15 
8990906 MOV ASTERISK ,( SP) ; 
1 MOV ¢ e~ SP) 
MOV ° ; SP,«s 
TRAP i5 
~ 4 R3,RO ‘ ELOG.SUB,« 
BB09r0" MOV TL .MFECRO), (SP) 
1 MOV #1,-C(SP) 
MOV SP, a SP ,* 
TRAP 15 
pee e eg ADD @6.,SP : 
10 118: CMPB R4,€10 ; ELOG.CODE,« 
BNE 128 
000017 oe azseet ; ELOG.SUB,+« 
000000G MOV @CRALF .(SP) 3 











me ~—- ~ad 


SEQ 02465 





— 





























WAX-11 Blies-16 V4.1-S82 Page 229 
vo2.3 ERROR OISKSUSER2 : (ML YNAR . ZRQ)ZROAHO.BL1;4 (76) 
° 000001 
; LO¢ .s ; SP .e 
7 0000006 : 1536 
912746 000001 . us . 
t+ a ; 
11030. : ELOG.SUB,« 7837 
14014 ‘ ' 
12746 000001 | 
ire ; SP,e 
62706 000006 
20427 000011 128: ; ELOG.CODE,« 
9208: 000004 ; ELOG.SUB,« 
| ’ 
i 900001 
»4 O4OL SP ,@ 
nA : . 
Harte gpgge0e : 
; LO ft ; SP,« 
IG, ; ELOG.SUB,« 
> O16010 ' -HSTC(RO), (SP) 
je $00001 =c$P) a 
; 104006 ca 
eat oe 
>tTy, sp 
 fiaagt Soeete 138. Rs | os.cent.« 
‘ 1} ba? 000003 #3 ; ELOG.SUB,« 
. 3 9000006 @CRLF (SP) 
p7ac i : PRO oes 
‘Lipp is’ : ’ 
ST te @ASTERISK, (SP) 
0754 OL: +t a $3. (SP) : 
30760 OL 060% SP .RO : SP,e 
x 64 D103 RS .RO ; ELOG.SUB,« 
770 O18 TBL .CNTCRO), (SP) 
: ai SOLS 900200 #1. -(SP) 
900 01060 SP.RO ; SP, 
moa ar $6.SP 5 
10 Lax 00001 148: R4,013 ; ELOG.CODE,« 





pe # 


230 
C76) 


SEQ 0246 
rege 


-i- 
DISKSUSER2: [PL YNAR_2RQ}ZROAMO.0L1,4 






° & e 

p . 2 a 

fe: oo: ¢ 3; ig 

eS : : : -; og 

P ¢ ¢ , € ¢ §4--3 8g¢& gq 

z sees § ¢ 2 8 3 ¥ & 

8% 

mn 

Sg 

a5 . a 

¥ ¥ 6, “ a 2 

43 a i: ie 3 3 

2g m g ee 2. bee. 
om a, = 

e Be 5 3, Se 2 2 2 83 S 2.8 3 git, = 


334 agoaed Sanssaneebsaness ga5e58 Soo ; neg 
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-582 Page 231 





ZRQAM2 RDO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1 
v02.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZRQAHO.BL1;4 (76) 
001250 042716 170000 BIC #170000, (SP) 
00 012746 000000G MOV @EX .RBN2, -(SP) 
012746 000003 MOV 3.-(SP) 
1 010600 MOV SP .RO ; SP,« 
1 04415 TRAP i5 
001270 000006 18%: ADD @6.,SP 3 7579 
oot iG 7? 000001 000010 19$: iu 25558?) ; 7585 
001 016116 000056 MOV S6(R1), CSP) ; *CELOG.ADDR),« 7587 
001310 O38} 000060 MOV 60(R1),-CSP) ; *CELOG.ADDR),« 
001 2716 170000 BIC 170000,(SP) 
001 012746 000000G MOV .LB,-CSP) 
| OO1 012746 000903 MOV #3,-CSP) 
001 rf: MOV RO ; SP,« 
001 1 15 TRAP 15 ! 
001 062706 000006 ADD 06 ,SP | 
00 004737 900000V 203: JSR PC,.EMS.TIM ; 7589 
00 012716 000002 MOV $2.(SP) : 7590 
00 reiae ADD R1,(SP) ; ELOG.ADOR,« 
001 01 000002 2(R1),-C SP) ; *CELOG.ADDR),« | 
+$ 48 INC (SP) 
00 012 000002 #2,-CSP) 
Sot 004737 JSR PC ,BLSDOIV 
001370 01 000002 MOV RO,2CSP) 
001374 062766 000002 000002 #2,2(SP) | 
ote 2 7 | TST (SP )-« 
0014 004737 011374’ JSR PC.EMS.BLK 
001410 105061 000001 CLRB 1€R1) ; *CELOG.ADDR) 7591 
0014 06 £98 000014 ADD #14,SP ; 7461 
001420 20 RTS PC 
' Routine Size: 393 words, Routine Base: ‘sCODE$ + 12320 
+ Maximum stack depth per invocation: 16 words 


ZRQAM2) 

vo2 * 3 

: 7594 1 

5 7595 1 

; 7596 1 

5 7597 1 

; 7596 1 

$ 7599 1 

; 7600 1 

$ 7601 2 

; 760 2 

; 7603 2 

$ 7604 2 

5 7605 2 

$ 7606 2 

; 7607 2 

$ 7608 2 

$ 7609 2 

$ 7610 2 

; 7611 2 

$ 7612 2 

$ 7613 2 

5 7614 2 

; 7615 2 

; 7616 2 

' 7617 2 

$ 7618 2 

; 7619 2 

; 7620 2 

$ 7621 2 

$ 7622 2 

; 76235 1 

000000 010146 

000002 16601 

000006 013746 

000012 012746 

Soaase Steaos 

000024 0441 

ougegs 012716 

000032 012745 

000036 1 

000040 104414 

000042 0135716 

000046 012746 

000052 1 

000054 04414 

000056 016116 
016146 
012746 

000072 012746 





SEQ 0248 


RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4. 
ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISKSUSER?2: [MLYNAR. +R IZROAHO. BL1;4 
globel routine EMS_CMP (ADDR) : novalue = 
Se 
! THIS ROUTINE IS CALLED FROM ‘HOST_WPT_CHK’ AND PRINTS RELEVENT DATA ON A HOST 
‘ COMPARE ERROR 
begin 
locel 
ORIG_ADDR : ref block [RP_LEN, word] field (RP_FIELDS); ! MMM 
ORIG_ADOR = . ; ' ADDRESS A THE WRITE RETPKT 
INTB (ERR_OO, .CDISK); ! "DISK xX 
PRINTB (DASH) ' 
PRINTB (.ERR ERR COD (12); 1 ” . HOST COMPARE ERROR” 
PRINTX (EX -ORIG_ADDR [LBN_HI]}, .ORIG_ADOR (LBN_LO]); ! LBN CWRITTEN) 222 
PRINTX CEX-LBRE. “RP TROOR {LBN_HI), .RP OADDR [LBN_LO}); ' LBN (READ) 222 
INTX (EX .ORIG_ADDR {CBCNT_LO}); '! BYTE COUNT (WRITE) 
PRINTX (EX .ORIG_ADOR (BENT 10)? ! BYTE COUNT XMITTED (WRITE) 
INTX CEX .RP_ADDR (CBCNT_LO)); ' BYTE COUNT (READ); 
PRINTX (EX .RP_ADDR (BCNT_LO)) ' BYTE COUNT XMITTED CREAD) 
PRINTX (EX . -ORIG_ADDR (BUFF i}. .ORIG ADOR Py _0)); ! BUFFER ADDRESS CWRITE) 
PRINTX (EX . -RP_ADOR (BUFF_1], .RP_ADDR [ 0)); ' BUFFER ADDRESS (READ) 
EMS_TIM () ! TIME 
EMS_R2 (.ORIG_ADDR); ' MMM 
EMS_R1 (.ORIG_ ADDR); ' MMM 
EMS_R2 (.RP_ADDR); ' MMM 
EMS_R1 (.RP_ADOR); ' MMM 
end 
-SBTTL EMS.CMP ERPOR MESSAGE SUBROUTINES 
EMS.CMP: : 
MOV athe (SP) 2 
000004 MOV 4(SP),R1 ; ADDR.ORIG.ADOR 
000000G MOV CDISK’ -¢SP) ; 
000000G MOV #ERR.00, -( SP) 
000002 MOV 62, -(SP) 
MOV SP RO ; SP,+ 
TRAP 14 
MOV @DASH, (SP) ; 
000001 MOV #1,-CSP) 
TRAP 14 
000030G MOV ERR .COD+30, (SP) ; 
000001 MOV #1,-CSP) 
MOV ’ ; SP,* 
TRAP 1 
000050 MOV 50(R1).(SP) ; #C(ORIG.ADOR),« 
000052 MOV 52(R1).-CSP) ; #(ORIG.ADDR),« 
MOV @EX.LBW2, -(SP) 
000003 MOV #3, -(SP) 


age 23 
oe 57) 


761 


—S——— oe 


~~ 


— ee ee 


ZRQAM2 RD/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 


012124' 
012254' 
342 008787 012124' 
012254' 


10-Oct-1985 09:32:06 


10-Oct-1985 09 


15 
44(R1),(SP) 


4 
OEX. 
@2,- 

R 


Caw, -(SP) 
(sP) 


:3 


1 


20 


VAX-11 Bliss-16 vV4.1-5862 
[ML YNAR 


DISKSUSER2: 
; SP, 


; SP, 
; *CORIG.ADOR),« 


; SP,« 
; *CORIG.ADDR),« 


; SP, 


H SP ,« 


: SP ,« 


*CORIG. ADDR), « 
#(ORIG.ADDR),« 


3 SP ,* 


a SP ,* 


; ORIG. ADDR, « 
ORIG. ADOR, « 


"2RQ)ZROAHO.BL1:4 


SEQ 0249 
vee 333 


77) 


7611 


7612 





———- = a= 


ee ee _—s 


SEQ 0250 
ZRQAM2? RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 Vv4.1-5862 pons 234 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $SUSER2: (MLYNAR .ZkQ)ZRGAHO.BL1;4 (77) 
000356 062706 000062 ADD 62 ,SP 3 7601 
000362 012601 MOV (SP)+.R1 3 7594 
000364 000207 RTS PC 
; Routine Size: 123 words, Routine Base: ‘sCODE$ + 13742 


; Maximum stack depth per invocation: 28 words 


SEQ 0251 





ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06  VAX-11 Bliss-16 v4.1-S82 3 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20  DISKSUSER2:(MLYNAR.ZRQ)2ROAHO.BL1;4 "(Sas 
: 7624 1 globel routine EMS_ERR : novalue = 
; 7625 1 . 
> on 
7628 : ! TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES, INDEXED BY STATUS CODE 
; 67630 «3 "  PRINTB (ERR_0O, .CDISK); © “DISK XXX" 
; 7631 2 PRINTB (DASA); 
; 7633 «2 if (.ST_CODE otru 0) and ! IF STATUS CODE IS WITHIN RANGE 
; 7634 3 tne’ 3! “CODE Lequ 11) 
$ 
; 17636 3 PRINTB (.ERR_COD [.ST_CODE - 1)) ! PRINIB APPROPRIATE MESSAGE 
: 7637 2 lee 
; 7638 2 
: 9 $4 : 7 -ST_CODE eql ST_DIA 
; 
' 7641 5 PRINT (.ERR_COD [11]) ! MESSAGE FROM INTERNAL DIAGNOSTICS 
' se 
; 7643 2 PRINTS (EX_SC, .ST_CODE); ! JUST PRINT STATUS CODE WHEN NO MATCH 
i 644 
' 7645 : EMS_R2 (.RP_ADDR); ! PRINTX OTHER RETPKT FIELDS 
; 
P 7647 i end; 
.SBTTL EMS.ERR ERROR MESSAGE SUBROUTINES | 
000000 013746 0000006 EMS.ERR: af 
MOV COISK, -(SP) : 16 
000004 012746 0000006 MOV SERR. OO, -(SP) | 
000010 012746 000002 MOV @2,-(SP) 
000014 01 MOV —s SP, : SP,e | 
000016 104414 TRAP = «14 
000020 012716 0000006 MOV ®DASH, (SP) ' 7631 
4 012746 000001 MOV #1, -(SP) 
090080 010600 MOV SP ‘RO ; SP,« 
000032 104414 TRAP 14 
000034 013700 0000006 MOV ST. CODE,RO : 7633) 
$582 S84? coco Bas se 
000046 101010 BHI is’ : 
000050 006 ASL RO ; 7636 
000052 016016 177776G MOV’ ERR .COD-2(RO), (SP) 
000056 012746 000001 MOV $1,-(SP) 
000062 010600 MOV SP; ; SP,« 
000064 104414 TRAP 
000422 BR 3$ ' 7633 
000070 020027 000037 1s: CMP RO,@37 763 
000074 001007 BNE 2$ 
000076 013716 0000266 MOV ERR.COD+26,(SP) : 7641 
000102 012746 000001 MOV ,-CSP) 
0001 01 MOV ‘ ; SP,« 
000110 104414 TRAP 


— —— ae ee. 


ZRQAM2 RO/RX EXERCISER 
vo2.3 ERROR MESS 


46 000000G 
122 012746 000002 
0600 


6 900000G 
000140 004737 012124’ 


000144 ys the 000012 


4 Reutine Size: 53 words, Routine 
+ Maximum steck depth per invocation: 


AGE SUBROUTINES 


-_-— — _ a a 


10-Oct-1985 09: 
10-Oct-1985 09:31 


BR 3$ 

2s: MOV RO,(CSP) 
MOV EX.SC.-CSP) 
MOV @2,-(SP) 
MOV SP .RO 
TRAP 14 
TST (SP )-+ 

3$: MOV RP .ADDR, (SP) 
JSR PC,EMS.R2 
ADD #12,SP 
RTS PC 


Base: sCODE$ + 14330 


mes words 


——_—— es 


SEQ 0252 


VAX-11 Bliss-16 V4.1-582 Page 236 
DISKSUSER2: [MLYNAR. FROIZROAHO. BL1;4 (78) 
3 7639 
3 7643 
7 SP ,@ 

3 7645 
3 7626 
3 7624 


—_— —- =e <. = 


—_ -— — ——_— Se 





| 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZRGAHO.BL1;4 
i 7646 1 routine EMS_TIM : novelue = 
$ 7649 1 
; 7650 i te 
; aoa : : THIS ROUTINE PRINTS THE TIME-OF-DAY MESSAGE 
: 7 
76 1 
| 7653 1 PRINTX CEX_TIM, .HOURS, .MINUTES); 
| 
-SBTTL EMS.TIM ERROR MESSAGE SUBROUTINES 
000000 005046 EMS.TIM:CLR -( SP 3 
000002 113716 000000G MOvVB vas) 
a2 16 000000G MOvVB HOURS , (SP) 
000014 000000G MOV EX. TIM, -(SP) 
012746 000003 MOV @3,-(SP) 
4 O1 MOV SP RO ; SP,« 
ree + TRAP 15 
eins C00010 ADD #10,SP 
000034 00020 RTS PC ; 
1 Routine Size: 15 words, Routine Base: *sCODE$ + 14502 


+ Maximum eteck depth per invocation: 6 words 


SEQ 0253 
Page 237 


(79) 





SEQ 0254 
ZRQAM2 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Pege 238 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: [ 


s eH 3 BGNMSG (EMS_01); 


rid 
i 
: 
F 
: 


-SBTTL EMS. Bi. ERROR MESSAGE SUBROUTINES 
000000 004737 \000000V EMS .01::JSR PC .MSEMS.01 : 7655 
' 000004 104423 TRAP 23 
yo 000207 RTS PC 
Routine Size: 4 words, Routine Base: ‘sCODE$ + 14540 
Meximum steck depth per invocation: 2 words | 
5 76 2 PRINTB CEBS_01, MAX_UNITS); ! “MORE THAN XA UNITS SPECIFIED" 
j 7657 i ENOMSG ; 
-SBTTL MSEMS.01 ERROR MESSAGE SUBROUTINES 
000000 012746 000004 MSEMS .O1: 
MOV 04, -(SP) ; 76 
012746 000000G MOV EBS .01,-(SP) 
909010 012746 000002 MOV @2,-CSP) 
¢ Saascs SP .RO H SP ,* 
9000 8 be 7o6 000006 ADD a6 SP 765 
3 000207 RTS PC’ 
s Routine Size: 11 words, Routine Base: %sCODE$ + 14550 
t+ Maximum stack depth per invocation: 5 words 





ZRQAM2 RO/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 Vv4.1-562 Page 239 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $USER2: (MLYNAR . ZRQ)ZRGAHO.8L1;4 (81) 
; 7658 1 BGNMSG (EMS_10); 
-SBTTL EMS.10 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.10::JSR PC .MSEMS.10 : 7688 
000004 104423 TRAP 23 
000006 000207 RTS PC 
4 Routine Size: 4 words, — Routine Base: ‘sCODE$ + 14576 
+ Maximum steck depth per invocation: 2 words 
| ’ 7659 2 PRINTS (EBD_10, .RDRX_ADDR + .OF_RC); ! “NO RESPONSE AT ADDRESS XXXXXxX” | 
5 7660 i ENDMSG ; 
-SBTTL MSEMS.10 ERROR MESSAGE SUBROUTINES 
000000 013746 000000G MSEMS.10: 
MOV RDRX.ADDR, -( SP) ; 765 
000004 063716 000000G ADD OF .RC.CSP) 
000010 012746 000000G MOV #E8D.10, -( SP) 
000014 012746 000002 MOV ¢2,-(SP) 
eoeoes 010600 MOV SP RO ; SP, 
000022 104414 TRAP 14 
000024 062706 000006 ADD #6 ,SP : 
000207 RTS PC 
+ Routine Size: 13 words, Routine Base: sCODE$ + 14606 


+ Maximum stack depth per invocation: 5 words 





es ~~ — 


ZRQAM2] RD/RX EXERCISER 10-Oct-1985 os" 32:06 VAX-11 Blies-16 v4.1-562 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK SUSER2: (ML YNAR . ZRQ)ZROAHO.BL1;4 (82) 
$ 7661 1 BGNMSG (EMS_12); 
-SBTTL EMS.12 ERROR MESSAGE SUBROUTINES 
000000 004737 \O00000V EMS .12: : JSR PC ,MSEMS. i2 : 7661 
000004 104423 23 
000006 RTs. PC 
| 4 Routine Size: 4 words, Routine Base: ‘sCODE$ + 14640 
' 5 Maximum steck depth per invocation: 2 words 
i 7662 : PRINTB (CEBD_12, .RDRX_ADOR); ! “INCORRECT BR LEVEL GIVEN FOR DEVICE xxxxxx” 
$ 7663 ENOMSG ; 
' 
-SBTTL MSEMS.12 ERROR MESSAGE SUBROUTINES | 
000000 013746 0000006 MSEMS. 12: 
RORX . ADDR, -( SP) ; 7662 
012746 000000G MOV EBD .12,-CSP) 
000010 012746 000002 MOV @2,-CSP) 
000014 010600 MOV SP ,RO ; SP,« 
000016 104414 TRAP 14 
1 Routine Size: 11 words, Routine Base: ‘sCODE$ + 14650 
+ Maximum stack depth per invocation: 5 words 


SBEEEE B$4ze$ 2000 m RS : ’ 
| 


TT 





SEQ 0257 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-582 Page 241 
vo2.3 ERROR 4ESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR . ZRQ)ZRQAHO.BL1;4 (83) 
; 7664 1 BGNMSG (EMS_13); 
.SBTTL EMS.13 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.13::JSR PC .MSEMS.13 j 7664 
000004 1044 3 TRAP 23 
000006 RTS PC 
4 Routine Size: 4 words, Routine Bese: %sCODES + 14676 
4 Maexiaum steck depth per invocation: 2 words 
|, 7663 2 PRINTS (EB0_13, .STEP); ! “STEP X READ ERROR” 
+ 1766 2 EMS_SA (); ' PRINTX SA CONTENTS 
j 7667 1 $ | 
.SBTTL MSEMS.13 ERROR MESSAGE SUBROUTINES | 
000000 013746 C00000G MSEMS .13: 
STEP, -(SP) ; 7665 
012746 000000G MOV @€8D.13,-(SP) 
0 012746 000002 MOV @2,-(SP) | 
4 0 MOV SP ,RO ; SP,« 
4 TRAP 14 
737 007712’ JSR PC,EMS.SA ; 7666) 
4 706 000006 ADD 6 .,SP : 7 
207 RTS PC 
sR ine Size: 13 wo Rout ine ge $SCODE$ + 14706 
+ Maximum eteck denen +~¥ invecation: 5 wo 


ee ee eee ee 





ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32: 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1965 09:31: 


s 7666 1 BGIOISG (EMS _14); 


-SBTTL EMS.14 ERROR MESSAGE SUBROUTINES 


| eoaees ioe 000000 EMS .14:-:JSR PC .MSEMS 14 : 7668 
i RTS PC 





















| ine Size: 4 nords, Routine Bese: ‘sCODES + 14740 
| 5 Maximum eteck depth per invocetion: 2 words 
ie 6gB0.14. . IRDRX_ADOR); ' “BAD SA CODE FROM DEVICE XXXXxx" 
+ 7670 5 ! PRINTX SA REGISTER CONTENTS 
r 7671 5 
MSEMS.14 ERROR MESSAGE SUBROUTINES 
000000 ste C00000G MSEMS .14: 
IRDRX. ADDR, - (SP) : 766 
#€8D .14 -(§P) 
@2, -(SP) 
SP .RO ; SP ,e 
is 
44k PC.EMS.SA H 
#6. SP ; 
PC 
1 Routine Size, Routine Bese: *sCODES + 14750 
‘ ni@um @ Ie per " invecetion: 5 words 


i 
; 
' 


a ee a en ee ee 


/AX EXERCISER 


| yon 3 MESSAGE SUBROUTINES 


(1 7672 1 OGMNSG (ENS _18); 


000000 004737 900000 








ine Size: 4 words, Rout 
mm eteck depth per invocetion: 


oe” ee 





. Ki@um © oe dod per yee 


-SBTTL 
EMS .18::JSR 

TRAP 

RTS 


ine Bese: ‘sCODES + 
words 





“DISK XXX WENT OFFLINE” 
PRINTX RELEVANT RETPKT FIELDS 


MSEMS.18 ERROR MESSAGE SUBROUTINES 


CDISK, -(SP ; 
#€80 .18, -(SP) 

@2,-(SP) 

i ; SP,« 
RP .ADDR. (SP) 
PC.EMS .R2 

66, SP ; 

PC 


-~11 Blies-16 V4.1 
TSKSUSER2: [ 


SEQ 0259 
ML YNAR . zRa ZROAMO .BL1;,4 


767 


767 
767 


——— = = 





SEQ 0260 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-582 Page 244 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [ . ) 


s 7676 1 BGNMSG (EMS_21); 


-SBTTL EMS.21 =P, MESSAGE SUBROUTINES 


000000 004737 \000000V EMS.21::JSR PC .MSEMS.2 3 7676 
000004 104423 TRAP 23 
000006 RTS PC 
4 Routine Size: 4 words, Routine Base: $sCODE$ + 15050 
+ Maximum stack depth per invocation: 2 words 
; 7677 2 EMS_R1 (.RP_ADDR); ! CONTENTS OF RETURN PACKET 
; 7678 1 ENOMSG ; 
' 
' 
-SBTTL MS$EMS.21 ERROR MESSAGE SUBROUTINES | 
000000 013746 000000G MSEMS.21: 
MOV RP .ADDR, -( SP) : 767 
000004 004737 012254’ JSR PC,EMS.R1 
000010 005726 TST (SP )+ ; 767 
000012 000207 RTS PC 
s Routine Size: 6 words, Routine Base: %sCODE$ + 15060 
; Maximum stack depth per invocation: 2 words 


_ <  e 


SEQ 0261 


ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 v4.1-582 Page 245 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISKSUSER2: [MLYNAR. FRAIZROAHO. BL1;4 oe 87) 
s 7679 1 'MMMBGNMSG (EMS_<2) ‘CONTENTS OF DUP BUFFER 222 

+ 7680 1 'MMMEMS _DBN (); '22Z 

: 7681 1 ‘MMMENOMSG ; '222 


eee a 


s Routine Size: 
+ Meximum steck 


5 7683 2 
$ 7684 2 
$ 7685 1 


30 062706 
000034 000207 


s Routine Size: 
+; Maximum stack 


--_——_—-— LL LLL Cet a _— 


RO/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 


BGNMSG (EMS _24); 


. SBTTL 
OOOC000V EMS .24::JSR 
TRAP 
RTS 
4 words, Routine Base: %sCODES + 
depth per invocation: 2 words 
PRINTS (EBD_24, .CDISK); 
EMS_R2 (.RP_ ); 
5 
. SBTTL 
C00000G seaeis 
000000G MOV 
000002 MOV 
MOV 
TRAP 
000000G MOV 
012124’ JSR 
000006 ADD 
RTS 
15 words, Routine Base: ‘sCODE$ + 


depth per invocation: 5 words 


VAX-11 Bliss-16 v4 


10-Oct-1985 09:32:06 
: DISK SUSER2: [ML YNAR 


10-Oct-1985 09:31:20 


EMS.23 ERROR MESSAGE SUBROUTINES 
PC ,MSEMS. 24 


PC 
15074 


: “DISK XXX WENT TO THE AVAILABLE STATE” 
! PRINTX RELEVANT RETPKT FIELDS 


MSEMS.24 ERROR MESSAGE SUBROUTINES 


COISK, -( SP) ; 

EBD .24,-(SP) 

e2, -(SP) 

SP RO 3 SPs 
14 


RP .ADOR, (SP) : 
PC,EMS.R2 

06 ,SP : 
PC 


15104 


-1-562 
2 


: 
3 
3 
. 


7682 


~ 


~ 
- I LL Be _— 


SEQ 0263 
ZRQAM2 RD/RX EXERCISER 10-Oct-1985 09:32:06 VAX-11 Bliss-16 V4.1-562 Page 247 
vo2.3 ERROR MESSAGE SUBROUTINES 10-Oct-1985 09:31:20 DISK $USER2: [ML YNAR .ZRQ)ZROAHO.BL1;4 (89) 


7686 1 BGNMSG CEMS_30); 


SBTTL EMS.30 ERROR MESSAGE SUBROUTINES 


000000 004737 000000v EMS .30::JSR PC .MSEMS. 30 ; 7686 
000004 104423 TRAP 23 
000006 RTS PC 
; Routine Size: 4 words, Routine Bese: ‘sCODE$ + 15142 
+ Maximum steck depth per invocation: 2 words 
7687 2 EMS_ERR (); ! PRINT ALL RELEVANT DATA ON DETECTING AN ERROR 
$ 7688 i ENOMSG; 
.SBTTL MSEMS.30 ERROR MESSAGE SUBROUTINES 
000000 004737 014330’ MSEMS.30: 
JSR PC,EMS.ERR : 7687, 
000004 000207 RTS PC : 7686, 
s Routine Size: 3 words, Routine Base: ‘sCODE$ + 15152 
+ Maximum stack depth per invocation: 1 word 
’ 7689 1 
’ 7690 1 end 
; 7691 1 
; 7692 O eludom 
; OTS external references | 
-GLOBL $SAVE5. $SAVE4, $SAVE3, $SAVE2 
-GLOBL BLSDIV.,. BLSMOD, BLSMUL 
: PSECT SUMMARY | 
Psect Name Words Attributes 
: SOWN$ 82 RW. O , LCL, REL, CON 
: sCODE $ 3384 RO. I ., LCL, REL, CON | 
i Library Statistics 
; 
»_ ae SR ee ee ere re Symbols -------- Pages Processing 
: File Total Loaded Percent Mepped Time 
H 
: OISKSUSER2: [MLYNAR.ZRQ)ZRQAHD.L16;10 411 295 71 21 00:00.1 


ee 


ZRQAM2 
vo2.3 


Prbee @e ce ce ce oe oe 
D 


seesseeee 


SS88S555 
Pe Oe ES OOS OOS OO Oh hehe be bebe heheh be bebe bo bho be pops poppe b bbb OOOOOOOO 


UU ee 
BD@nIMUSUNrO 


<b ab xd 5 2d = 8 od od 
PAAPAPGAMBMOaU 
S<SSSS605 


SANS NANA ASS 
SASSANID 
BAMVSWNYHOO 


Sone 





en de de tm ie 








xz 
NOU 


| 2 Ge Or Gr Gf OF GF Ge OF OF GH GF GF ae OF OF Or OF Or GF OE GF OF OF OF Gs OF GF OF Or SF OF Ge OF os Gs Oe OH OE Or GF Gs OF Gs Os Os Oe Or Ss oe 
aaa 
rt 


+e ee Be he ee oe ee pe me pe he he pt pe he ee pe et bee ps pe 


Memory Used: 727 
Comp Let ion Complete 


RO/RX EXERCISER 
ERROR MESSAGE SUBROUTINES 


COMMAND Q'4LIFIERS 


3216 code + 6709 date words 
01:53.7 
99:09.1 


4060 
Lexemes/CPU-Min: 37129 





module ZRQAM3 ( 
Stitle ‘RD/RX EXERCISER’ 
ident = ‘Vv02.3' 


addressing mode (absolute), 
environment (noeis) 


) = 
begin 
Sebttl ‘DECLARATIONS’ 
library 'ZRGAHO.L16'; 


'MMM require ‘BLSMAC.REQ’ 
require ‘HSAXAO.BLB’ ; 
EQUALS; 


forward routine 
INIT_TEST : novalue, 
ORIVER_INIT : novalue. 
CTLR_INIT : novalue, 
INI_CTLR_DAT : novalue. 
REG_ExIST, 
Yer eegieT 
HARD_INIT, 
INI_RRING : novelue, 
SET_CTLR_CHAR, 
UNIT_INIT : novalue, 





10-Oct-1985 09:32:06 
10-Oct-1985 09:31:20 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


BLISS/PDP11 ZRQAHO.BL1/LIST=ZRQAHO .LS1/0BJECT=ZRQAHO . 0B1/SOURCE =PAGE :53 


PORX EXERCISER GLOBAL LIBRARY 


DIAGNOSTIC SUPERVISOR LIBRARY Z2ZZ 
DIAGNOSTIC SUPERVISOR LIBRARY ZZZ 


ROUTINES APPEAR IN THIS ORDER 
INDENTATION IMPLIES CALLED SUBROUTINE 


OR_ERR : novalue. 
ACCESS : novelue, 
MULTI_ORIVE : novalue,. 
MO_INIT : novalue 
INIT_IO0_ BUFF novelue, 
FATAL_ERROR : novelue, 
0_0K 
QI0_ouT, 
QIO_GEN : novelue, 
GET_R : novelvue, 
QIO_UNIT novalue, 
QI0_FUNC novelue, 
‘MMM NOVALUE, $222 
‘MMM DUPWRTDEN : NOVALUE, !ZZZ 
‘MMM DUPCOMMAND : NOVALUE, $Z2Z 
"MMM DUPIDLE : NOVALUE, $222 


QIO_LBN : novelue. 
QIO_SIZE : novalue. 





VAX-11 Bliss-16 V4.1- 
DISK$USER2: [MLYNAR. ZRQ 


iss-16 V4.1-562 oo 
: Y . ZRQJZROAHO.BL1;4 


2 P 
JZRQAHO .BL2;3 — 


1 
(1), 


7 oS oF SF G Ge Ge Ge Ge Ge Ge Ge Ge Ge ee Ge Ge Ge Gs Os os 
a a ea a od dod ddd ddd 


Nae ee ee 
eoeooeo 
ve ee pe 
aurwro 


Ts 

N 

Le | 
Peed anand al ak aed ood ood al 
eocoooeooooe 
MVM & eo 


POPP 
SrIPCUSUNMYHCOWOe-.Au 


— oF OF a oF ae oF OF SF ar Ge oF SH Ge Ge GH GE GF oe Ge oe Ge Ge Ge GF Ge Ge Ge Ge os ee Ge 

OO pe be be fe fee pe po ft pe pw pe pe fe pe pe es pe pe 
O00000000000000 
CeO~CUP2WURYHOW 


Soaheee 
OUSurod 


_ wee DIO_RETPKT : _NOVALUE, *Z72Z 


—_ _— ——— = ss>stestees - -~ —_—— 


SEQ 0265 
RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 
DECLARATIONS 10-Oct-1985 09:21:16 DISK SUSER2: (ML YNAR . ZRQ)ZROQAHO .BL2; 3 C1) 


! MMM DUP_COMPARE : NOVALUE, !Z2Z 


: novalue, 


DR_RETPKT : novalue. 
AZINTO : L$ISR novalue, 
AZINT : 


'MMM DUP_RSP : NOVALUE, 
DISK_RSP : novelue, 
QUEN : novel 
'MMM SCAN_ERRLOG : novalue 
‘MMM ERR_SOFT_RTNE : novelue, 
'MMM ERR_SOFT_RTNE_APT novealue, 
‘MMM Te : novalue, 
DATAGM : <novelue 
E RTNE : novelue, 


ERR -30FT _RTNE_APT : novalue, 
SOFT_ERROR : novalue; 


ternel 
- “CST : blockvector (MAX CTLR, ng ST LEN, word) field (CST_FIELDS), 
' RUN-T CONTROLLER STATUS TABLES 
CST_ADOR : ref block (est N+ word] field (CST FIELDS). 


CONTROLLER STATUS TABLE ESS OF "CURRENT" CONTROLLER 
OCT : blockvector [MAX CTLR, DOCT_LEN, word) field (COCT_FIELDS), 
: ORIVER CONTROLLER TABLES 


DCT_ADDR : ref block. , OCT LEN, word field COCT_FIELDS), 
S OF “CURRENT 


sone. sbi ' eg hy “ DRIVER CONTROLLER TABLE 
ADOR 8 € 
= " + DEVICE ADDRESS OF “CURRENT” CONTROLLER 
IRDRX_ADOR : ref rdrx Field CRC_REG). 
CE ADDRESS. OF INTERRUPTING CONTROLLER 
BST : BLOCKVECTOR (MAX. UNITS 


S WORD), ' 
OCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS 1222 
RANDOM SEEK) MODE '2722 
TALLY : vector [MAX_UNITS # TALLY_LEN, word) field (T_FIELDS), 
! STATISTICS TABLES 
T._ADOR : ref block (TALLY LEN, word) field (T_FIELDS), 
S OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 
"MMM DUPPKT : BLOCK (357. WORD) FIELD (OP_FIELDS), ‘'BUFFER FOR DUP 222 





——_— a ee 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 age 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR .ZRQ)ZRQAHO.BL2;3 
:; 1647 1 alaiel ‘INFO FROM RECEIVE AND SEND COMMANDS 222 
; 1648 1 rex _SGN : VECTOR (MAX_UNITS, BYTE. SIGNED]. !CURRENT TK OIRECTION 222 
; 1649 1 ‘NO. OF RANDOM NOS. 222 
: 1650 1 RANDON : “VECTOR ([RDOM_LEN, WORD}, ae NO TABLE T1OGET/? 222 
+ 1651 1 C_ERR_TBL : blockvector {MAX CTLR “ERR_LEN, word] field. te. ERR_FIELDS). 
, 185¢ 1 ! STATISTICS TABLE FOR CONTROLLER 
; 165 i MSCP_PKT : blockvector {[PKT_CNT, PKT_LEN, word) Fiala (PKT_FIELDS), 
s 1654 1 ! MSCP BACKET POOL 
's 1655 1 IPKT_ADOR : ref block (PKT_LEN, word] field (PKT_FIELDS), 
', 1656 1 ADDRESS OF AN MSCP PACKET T CINTERRUPT PROCESSING) 
; 1657 1 PKT_USE : vector [PKT_CNT te, ss 
| + 1658 1 “ASCP P ALLOCATION TABLE 
i 1659 i RETPKT : blockvector. [RP_CNT > word) field (RP_FIELDS), 
s 166¢C 1 RETURN’ PACKET POOL 
' 1661 1 RP_USE : vector [RP_CNT RETURN» si 
+ 1862 1 ' NRE a SM ALLOCATION TABLE 
s 1663 1 RP_INDX : word, ! CURRENT RETURN PACKET INDEX 
s 1664 1 P_ADOR : ref block [RP_LEN, word] field (RP_FIELDS), 
; 1665 1 ! CURRENT RETURN PACKET ADDRESS 
s 1666 1 ELOG_PKT : blockvector [EP_CNT + 1, EP_LEN, word) field (EP_FIELDS), 
s 1667 1 rf + ERROR -L OG PACKET SAVE AREA 
+s 16686 1 BUFF _ADOR : vector [ BUF ! TABLE OF I/O BUFFER DESCRIPTORS 
s 1869 1 BUFF_OWN : vector (MAX. “SUF _ENT, byte, signed). ' I/O BUFFER OWNERSHIP CCONTROLLER NUMBER ) 
s 1670 1 I0DQ°: vector [IO00Q@_LEN, byte). ! I/O DONE QUEVE - CIRCULAR QUEUE OF RETPKT INDECES 
s 1671 1 TODQ_IN : word, ' I70 DONE QUEUE IN POINTER 
' 187¢ 1 word, ' 170 0 UE OUT POINTER 
s 1673 1 ENTRY_REASON : byte, ' CURRENT OPERATOR COMM 
; 1674 1 _FCAG : byte, ! END-OF -PASS 
s 1675 1 DUP _FL : Uiord. ’ FLAGS 222 
s 1676 1 CCTLR : word, ! NUMBER OF “CURRENT” CONTROLLER 
s 1677 1 ISK : word, ! CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 
s 1678 1 F : word, ! CURRENT UNIT CST OFFSET 
; 18679 1 CTLR_CNT : word, ' TOTAL NUMBER OF CONFIGURED CONTROLLERS 
; 1660 1 DUR : vector (MAX _UNITS, byte], ! DROP UNIT REAS 
:s 1661 1 QIO : vector [MAX_CTLR, byte), ! NUMBER OF OUTSTANDING QIOs PER CONTROLLER 
+ 16862 1 FREE _MEM_ADOR, ' START OF FREE MEMORY 
;s 1683 1 BYTS_PER_QIO : word, ! SIZE (BYTES) OF AN I/O BUFFER 
>; 1664 1 ST_C : word, ! CURRENT STATUS CODE 
; 1685 i SBC : word, ' CURRENT SUB-CODE 
: 1686 i STEP ; word, ! CURRENT STEP IN HARD _INIT 
+: 1687 1 -RC : signed word, ! OFFSET (O OR 2) TO READ IP OR SA 
; 16686 1 A_REG : word, ! STORAGE FOR SA REGISTER READS AND WRITES 
; 1689 1 CMO. TIME : word, ‘ COMMAND TIMEOUT VALUE (IN SECONDS) 
: 18690 1 NEX : word, ' NON-EXISTENT MEMORY TRAP INDICATOR 
; 1691 1 RN_LOW : word, ' COMMAND REF NUMBER OF LAST COMMAND SENT 
+s 1692 i CRN_H : word, * COMMAND REF NUMBER CHI” R) 
: 1693 1 TEMP1 : WORD, ' TEMPORARY STORAGE WD USED IN BGNCLN 'ZZ2Z 
: 1694 1 2 : WORD, ‘TEMPORARY STORAGE WD USED IN BGNCLN '22Z 
; 1695 1 CREDIT_BAL : word, ' CREDIT BALANCE 
; 18696 1 T PRT _USE : byte, * POINTER TO NEXT ENTRY IN PKT_USE TABLE 
: 1697 1} HOUR by te ' TIME OF DAY CHOURS) 
:; 1698 1 MINUTES “bute. ! TIME OF DAY (MINUTES) 
>; 1699 CLK_ TICKS : word, ! TIME OF DAY (LINE-CLOCK TICKS) 


a ee a — = = 


- 
PPS AMA SAO DMD SSC SOSMS OS SHSSSVSVSSHSSSH OF EOSSH HOSS SUBeSeéentseoe 


Pere ere eres bebe herbs be bbe bb bebe be bebe he he eb ee ee he eh pe pe ee pe pe he pe pe ee pe 





SEQ 0267 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-562 age 4 
DECLARATIONS 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 (1) 
! FLAG INDICATES IF LINE-CLOCK PRESENT 
! FLAG INDICATES IF “HALT ON ERROR” FLAG SET 
! “FORCED E " DETECTED IN LAST READ 
'LO LBN ADR HE D ERROR” ZZZ 
'HI LBN ADR THE “F ERROR” BLOCK ZZZ 
: ! LBN OF THE “FORCED ERROR” BLOCK Z2ZZ 





-~OCCURED : byte, 
ADOR_VECT_OK : byte, 
TYPER : VECTOR 
Bt : hares 


FORCE _UR : VECTOR (MAX_UNITS, WORD]. 
CSR MEN : * WORD 











‘ BYTE COUNT OF THE “FORCED ERROR” BLOCK 
' EXERCISER INITIALIZATION COMPLETE 
' FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED 


MAX _UNITS, ~~ 4f 'READ I/0 COUNTER 2Z2Z MMM 

X UNITS ‘WRITE I/0 COUNTER ZZZ MMM 
vec CTOR “teak UNITS, WORD), !FLAG SET TO BALANCE 1/0 TYPES ZZZ MMM | 
tFLAG TO ISSUE MORE WRITES WHEN BALANCING MMM 


: oer 
'MMM | 
MAN_TST : : 
' MMM S_PATTERN : WORD, 'PATTERN WRITTEN TO DBNS ZZZ 
‘MMM T : WORD, 'OBN BYTE COUNTER ZZZ 
: SIGNED WORD, t CURRENT MESSAGE PACKET INDEX ZZZ 
° ! NUMBER OF WINCHESTER UNITS ZZZ 
' CURRENT DEVICE’S BR LEVEL Z2ZZ | 
'SIGNIFIES DUP TYPE ERROR ZZZ 








i oe 


SEQ 0268 


—_—— - 
7 oF Ge Ge Ge GF Ge Ge Ge Ge Ge ee ee Gs os Ge oe 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 Page S 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16 DISK $SUSER2: [MLYNAR . ZRQ)ZRQAHO.BL2;3 (1) 
1953 1 EH_7, 1ZZZ 
1954 1 EH_8, 'ZZ2 
1955 1 EH_9, 'Z7Z 
1956 1 EH_10, 'ZZZ 
et HE: He 
° g 
1959 1 MSG_O2, 
1960 1 MSG_O3, 
1961 1 EGS_02, 
1962 1 EGD_10, 
1963 1 EGO_11, 
1964 1 EGD_12, 
1965 1 EGD_13, 
1966 1 EGO_14, 
1967 1 EGO_15, 
1968 1 EGD_16, 
1969 1 EGO_17, 
. 1970 1 EGOD_16, 
; 1971 1 EGD_19, 
: 1972 1 EGD_20, 
$ 1973 1 EGO_21, 
$ 1974 1 EGD_22, 
’ 1975 1 EGD_23, 
’ 1976 1 EGD_24, 
r 1977 1 EGH_30, 
i 1978 i DF _MSG, 
$ 1979 1 HRO_MSG, 
; 1980 1 SFT_MSG, 
r 1961 1 HRD_SUB, 
; 1983 1 SWP_ERROR : word, ' HARD ERROR LIMIT FOR DROPPING UNIT 
: 1984 1 SWP_XFER : word, ! TRANSFER LIMIT FOR sitiont UNIT 
; 1965 1 SWP_FLAGS : sare. ! FLAGS (SEE DOCUMENTATION) 
: 1966 1 'MMM OUPR WORD, 'DUP TESTING RATIO 222 
; 1987 1 SWP_RAT word, : RO51/52 OPERATION RATIO 
: 1966 1 SWP_DPAT word, ! DATA PATTERN NUMBER 
j 1969 1 _UCNT word, ! USER DATA PATTERN COUNT 
: 1990 1 SWP_TIME : word, ! TIME OF DAY 
: 1991 1 SWP_UDPAT : vector [MAX_UDP_CNT, word), ' USER DATA PATTERN 
: 1992 1 L$LUN, 
: 1993 1 LSUNIT; 
: 1994 1 
$ 1995 1 psect : 
: soot : own = $GGG$(read, nowrite, execute, local, concatenate); 
; 
$ 19986 i own 
: 1999 1 COMM_AREA : blockvector [MAX cia, COMM_LEN, word) field (COn_FIELDS), 
s 2000 i COMMUNICATIONS AREA {Re TWEEN N HOST AND AZTEC CONTROLLERS 
: 2001 1 $!Z2Z BST : vector [MAX UNITS, wiles sal eiged 
s 2002 1 * BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE 
: 2003 1 ay : vector [MAX _UNITS, byte], ! DATA PATTERN SENUENCE TABLE 
: 2004 i X_LBN : vector ([MAX_UNITS, word ! LARGEST LBN ALLOWED 
: 2005 i STORAGE : vector [MAX_UNITS, word ! DUMMY STORAGE 





—— -- 


(oo 





a — — 


SEQ 0269 





ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Page 6 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR . ZRQ)ZRQAHO.BL2;3 (1) 
; 2006 1 ICOM_ADOR : ref block {Comm LEN, word) field CCoM FIELDS) 

; 2007 1 S OF INTERRUPTING '§ COMMUNICATION AREA 

; 2008 1 ICST_ADDR : ref block feste 1%, word) field cst FIELDS), 

: 2009 i OF INTERRUPTING CON 

; 2010 1 IDCT_ADOR : ref block (OCT_LEN, word) field (DCT_FIELDS), 

; 2011 1 S OF INTERRUPTING CONTROLLER'S DCT 

; 2012 1 INT_ADOR : vector [MAX CTLR) initial CAZINTO #(, AZINT1, AZINT2, AZINT3)s), 

; 2013 1 t INTERRUPT SERVICE ROUTINE ADDRESS TABLE 

: 2014 1 19222 ROM_CNT : word initial (ROM_LEN), RANDOM NUMBERS \ KEEP 

; 20iS i $1222 RANDOM : vector [ROM_LEN, word], ANDOM TABLE / TOGETHER 

; 2016 1 ICTLR : word, ' INTERRUPTING CONTROLLING NUMBER 

s 2017 1 EL_FLUSH : vector [MAX_CTLR, word], ! STOP QIO TO PROCESS ERROR LOGS MMM 

:s 2018 i MXi : signed word. ! MSCP PKT INDEX FOR FIRST QIO 

; 2019 1 MX2 : signed wo ! MSCP PKT INDEX FOR SECOND QIO 

: 2020 1 MAD1 : ref block “text. LEN, word) field (PKT FIELDS) 

: 2021 1 SS OF MSCP PACKET FOR FIRST QIO 

: 2022 1 MAD2 : ref block [PKT_ LEN, word) field (PKT FIELOS), 

: 2023 1 “ADDRESS OF MSCP SACKET FOR SECOND 

; 2024 1 LAST_PKT : uiiemamnine (MAX CT CTLR, LAST_PKT_LEN, word) field CL (LAST PKT _FIELOS), 

: 2025 2 ' SAVE A FOR INFO ABOUT LAST 

3 2026 

; 2027 1 RNDYO : WORD, !32-BIT RANDOM PATTERN LO WO 222 
; 2028 1 RNDY1 : WORD, 132-BIT RANDOM PATIERN Qht WD 222 
; 2029 1 FRAME_CNT : WORD, 'WHICH 7-BIT FRAME OF R_STRING IN USE 222 
:; 2030 i R_STRING: WORD, ‘BITS USED IN PATTERN SELECTION 22Z 
; 2031 1 RNDYIN : vector (9, word) initiel (#0'127102', ININE SEED WORDS 222 
; 2032 1 s0'14 *, 0'036750', #0'121624', #0'023267' '22Z 
; 2033 1 %0' 036561‘. #0'063714', #0'560255'. so’ 134230’ 3, '222 
; 2034 i RNDMSO : vector (8. word] initiel (s0'17', 'MASK FOR LCW WORD Z2ZZ 
; 2035 1 $0'377', So'7777', #o'177777' ‘177777', '227Z 
; 2036 i $0'177777', %0'177777', #o'177777' ), '27Z 
: 2037 1 RNOMS1 vector [8, word) initial (#0'0000'. 'MASK FOR HIGH WORD 222 
? 20 i to' « so0'0000', so'1i7’, §ZZZ 
: 2039 i $0'377', #o'7777', #0'177777' ), '22Z 
; 2040 

> 2041 1 PATO2 : vector [2] initial (1. ! PATTERN 2 

s 2042 1 #0 ' 000000’ 

: 2043 i PATO3 : vector ‘S$? , initial (1, ' PATTERN 3 

; 2044 1 $0'177777 

; 2045 1 PATO4 : vector {3} initiel (1. ! PATTERN 4 

; 2046 1 so' 105613’), 

; 2047 i PATOS : vector (2) initial (i, ! PATTERN 5 

; 2068 1 so' 031463’ ), 

>; 2049 1 PATO6 : vector [2] initiel (1, ' PATTERN 6 

; 2050 1 s0' 030221’ ), 

: 2051 1 PATO? : vector (173 initiel (16, ! PATTERN 7 

; 2052 1 Bo° » %0'000003', #%0'000007', #0'000017', 

; 2053 i so! 000037 ‘, to’ 000077" . #0'000177', #0'000377'. 

; 2054 i %0'000777', #0'001777', #0'003777' , #0'007777' 

; 2055 i s$0'017777’ $0’ 037777". $0'0O77777' , #0'177777' ), 

: 2056 i PATOS : vector [17] initial (16, ' PATTERN 8 

; 2057 1 %0'177776', #0'177774', %0'177770', #o'177760', 

; 2058 1 %0'177740', #0'177700'. #%0'177600'. #0'177400'. 


ee 


— eee are SS CL 





SEQ 0270 


ZRQAMS RO/RX EXERCISER 10-Oct-1985 09:41:47 X-11 Bliss-16 Vv4.1-562 Pege 7 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16 Srsksuseho. : (MLYNAR. FRO} ZROAHO. BL2;3 (1) 

2059 1 #0'177000', #0'176000', #0'174000', #0‘ 170000’ 

2060 1 %0'160000' , #0'140000', #0'100000'; #0’ 000000’ 3, 

2061 1 PATO9 : vector (27) initial (16, ! PATTERN 9 

2062 1 rep 3 of (#0'000000'), rep 3 of (#0'177777'), 

2063 1 rep 2 of (#0'000000' ), rep 2 of (#0'177777' ) 

2064 i %0'000000', s0'177777' $0'000000'. so (177777', 

2065 1 to" 000000" . S0'177777' 5, 

2066 1 PATIO : 32), initiel (1, ! PATTERN 10 

2067 1 0° 1883 

2068 i PATI1 : vector p12 igasiss. (16, S of (so! 125252" ! PATTERN 11 
rep ° . rep ° : ° 

2070 i rep 2 of (#0'052525'), rep 2 of (s#0' 125252’ ), 

2071 1 #0'052525', so’ 1 125252’, #0'052525'. so' 125252’ , 

2072 1 so’ tol ‘5, 

2073 1 PAT12 : vector f21} initial (20, ' PATTERN 12 

2074 i rep 3 of (so' 55‘). rep 3 of (#0' 151322’ ), 

2075 i rep 2 of (#0'026455'), rep 2 of (#0' 151322’ ), 

2076 i rep 2 of (so0' a. 

2077 1 S0'151322', s0'026455' , wo’ 151322" . $0' 026455’ 

2078 1 S0'151322'., #0'026455'., #0'151322'. #0'026455' ), 

2079 i PATi3 : vector (2) initiel (1, ! PATTERN 13 

2080 i So' 066666' ), 

2081 1 PAT14 : vector [17] initiel (16, ! PATTERN 14 

2082 1 %0'000001'. s0'000002' , ', 0000010’ , 

2083 1 So! *, 0'000100', #0'000200'. 

2084 i ‘ ', $0'001000'. so’ , so! ' 

2085 1 %o' 010000' ' ', 0'040000'. so’ 100000’ }, 

2086 1 PAT1S : vector [17} initial (16, ! PATTERN 15 

2087 i %0'177776' , #0'177775', #0'177773', #0'177767', 

2088 i #0'177757'. mo 177787"- 0'177677', *0'177577'. 

20869 1 $0'177377', %0'176777', %0'175777' . 0173777 

2090 1 %0' 167777! 197777", $0'137777', #0'077777' ), 

2091 i PATI6 : vector ot {0's initiel (16 ! PATTERN 16 

2092 i rep 3 155881"), rep 3 “< (#o0' 155554’ ), 

2093 1 rep 2 of (#0'133331'). rep 2 of (s0'155554' ). 

2094 1 0° 133331’ . so’ 155554: "go' 138331". S0' 155554, 

2095 1 $0'133331'. so’ 155554’ ), 

2096 1 PATI7 : vector [ (22) initial (21. * PATTERN 17 

2097 1 rep 2 of (#o' 106466' ), 

2098 1 rep 3 of (he'd 1311'), rep 4 of (so0' 106466’ ), 

2099 1 rep 5 of (s0'071311'), rep 6 of (so' 106466' )), 

2100 i PAT18 : vector [22] initiel é33" ! PATTERN 18 

2101 1 So’ 106466', #0'000000', #0'071311' 

2i 1 rep 3 of (#o' 106466'). rep 4 of (s0'071311' ) 

2103 1 rep 5 of (s0'106466'), rep 6 of (#0'071311' )), 

2104 i PAT19 : vector (22) initiel (21, ' PATTERN 19 

2105 1 so’ " es 2 of (s#o' 134631'), 

2106 i rep 3 of (s0'043146'). rep 4 of (s0' 13463 me), 

2107 i rep 5 of (s0'043146'). rep 6 of (s0'134631' )), 

21 4, PAT20 : vector i? initial (21, ' PATTERN 20 

21 1 Ho’ 1346 i‘, so’ , %o'043146', 

2110 1 rep 3 of (so' 134631' Mey rep 4 of (#o0'043146' ), 

211i i rep 5 of (#0'134631'), rep 6 of (#0'043146' )), 





——— 









SEQ 0271 
P 


ZRQAMS RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 v4. ege 8 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR. +R] ZROAMO. BL2;3 (1) 
2112 PAT21 : vector {2) initiel (1. ! PATTERN 21 
2115 *000000° ) : (LON) 
114 OPA_TBL : vector (DP_CNT el ! DATA PATTERN ADDRESS TABLE 
115 Pato. ‘patos. PATO4, PATOS, 
116 PATOS, PATO7, PATO8, PATOS, PAT10, PATi1. 
ii PATI2, PATI3. PAT14. PATS, PAT16, PATi7. 
118 PATIO. PATi9. PAT20, P AT21). 
119 : word initiel (0), 


MUU UUUUNMUNMUNUUUMUUNUNUNUNUUNNUVNUNNNMURMUNANAA 


tegcsseceuremesssssstesse 












! CURRENT SEQUENTIAL BLOCK COUNT 
¥ : word initiel (0). CURRENT AL BL 
VECTOR : word, 


+ 





rn 
! FLAG SET IF EXERCISER 


20 ‘Moyes initial (byte (FALSE)), : RUNNING UNDER APT 
F ! ADDRESS OF TEST NUMBER LOCATION IN APT MAIL -B80x 
at TST, ! ADDRESS OF SUB-TEST NUMBER LOCATION IN APT MAIL -BOx 
¥ COMPARE 6 gATA : A: byte. ' FLAG CLEARED TO BYPASS HOST COMPARES 
; FLAGS ! FLAGS USED IN START/RESTART OF THE EXERCISER 
RO. _FAX_ gout tnt : word, ! COUNT USED IN SEQUENTIAL ACCESS OPERATIONS 
_MAX_ $ word; > 





externel 
NEX_T TRAP sc oe novelue, 
time 


* MMM 
LsTsR nov novelue. 
AR : novelue, 
: novelue, 






!ZZZ 


~ 
a ted 
: 





— eee — eee eee - 


—— 


SEQ O2/2 
ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Bliss-16 v4.1-S82 e 9 
vo2.3 DECLARATIONS 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR.ZRQ)2ROAMO.BL2;3 °°" cis 
) 65 1 ‘WHEHS_22 : NOVALUE. 8222 
; 3166 i EMS_24 7 novelue. 
‘ EMSs _ : novelue; 


a 


~———_— 


— oa 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


027 
VAX-11 Bliss-16 V4.1-582 wey 


DISK SUSER2: (ML YNAR . ZRQ)ZROAHO.8L2;3 


DED INTO A NUMBER OF 
ocK. 


! ASSUME NO UNIT AVAILABLE 
: ALLOW HOST COMAPRES IF ASKED FOR 
ee, INIT FLAG Z2ZZ 


! A FLAG NOT SET 
: INITIALIZE “FORCED ERROR” FLAG 


! INITIALIZE PACKET AREA 


: INITIALIZE RESPONSE SAVE AREA 


: INITIALIZE ERROR-LOG SAVE AREA 


* NO SIMULTANEOUS CNTR/HOST WRIE CHECKS 


10 
(2) 


: NO SIMULTANEOUS RANDOM/SEQUENTIAL SELECTS 


ZRQAM3 RD/RX EXERCISER 
vo2.3 TEST SECTION 
2166 i sebttl ‘TEST SECTION’ 
2169 1 
2170 1 
gi7i t ? THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE ROR 
$ - X EXERCISER. 
$i78 i ' THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVI 
sis ; : SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BL 
2176 1 
2177 i 
2178 3 BGNTST; 
2179 3 
2160 ; local 
2161 DUMMY _O : word, 
oie 3 DUMMY_1 : word; 
2163 3 
2164 3 
2185 3 EOP_FLAG = TRUE 
3186 3 COMPARE DATA = TRUE; 
2187 3 DUP_FLAGS = .DUP_FLAGS AND (NOT SWP_DINT); 
2168 3 FLAG = FALSE; 
2189 3 FORCED_ERROR = FALSE; 
2190 3 
21391 3 ; 
2192 3 incr I from 0 to PKT_CNT - 1 do 
2193 4 begin 
2194 4 
2195 4 incr J from 0 to PKT_LEN - 1 do 
sts MSCP_PKT [.I, .J. 0. 16, 0) = O; 
21968 4 MSCP_PKT (.I, RSP_RECEIVED] = FALSE; 
$444 3 end; 
200 3 
2201 5 incr I from 0 to RP_CNT - 1 do 
esos 3 incr J from 0 to RP_LEN - 1 do 
i441 : RETPKT ([.I, .J. 0, 16, 0] = O; 
2205 3 incr I from 0 to EP_CNT do 
2206 4 begin 
2207 4 
2208 4 incr J from 0 to EP_LEN - 1 do 
tt 3 ELOG_PKT [.I, .J, 0, 16, 0) = O; 
22il 4 ELOG_PKT [.I, EL_CONTENTS]) = EMPTY; 
2el2 3 end; 
2ei3 3 
2214 4 if BIT_TST CSWP_FLAGS, SWF_CWC) 
2215 3 hen 
seis : SWP_FLAGS = .SWP_FLAGS and (not SWF_HWC); 
2218 4 if BIT_TST CSWP_FLAGS, SWF _RDM) 
2219 3$ hen 
2220 3 SWP_FLAGS = .SWP_FLAGS and (not SWF_SEQ); 


~—— 


A 


Se 


ZRQAMS RD/RX EXERCISER 10-Oct-1985 09:41:47 
vo2.3 TEST SECTION 10-Oct-1985 09:21:16 
; 2221 3 

; 2222 3 if not .INIT_OCCURED 

; 2223 3 then 

; 2224 4 pegic 

: $se0 , ORS_START = .FREE_MEM_ADDR + 2 + (..FREE_MEM_ADDR « 2); 
: 

$ 222? 4 

$ 2228 4 

bo 22 4 !- THE FOLLOWING DETERMINES WHETHER THE TEST IS TO BE RUN IN APT MODE: 
bo 2230 4 

bo 2231 5 IF SIT_TST (SWP_FLAGS, SWF _APT) 

+ 2232 4 then 

r 2233 5 begin 

$ 2234 5 APT _MODE = TRUE; 

s @as0 5 MAIL _BOXx _TESTNUM = .DRS_STAPT + #0'62' + #0'6'; 
t 2236 5 MAIL BOX -SUBTST = -DRS_START + #0'62’ + #o0'4’; 
$ 2237 4 end; 

r 22 4 

$ 2239 4 

$ 2240 4 NEX = FALSE; 

$ 224i 4 CLK_PRESENT = FALSE; 

5 2242 4 SETVEC (4, NEX TRAP, PRIO7); 

$ 22435 4 a P - _CLOCK; 

$ 2244 4 

: 2245 4 CLRVEC (4): 

5 2246 4 

: 2247 4 

$ 2246 4 if not .NEX 

$ $o80 : then 

; pegia 

$ osay 5 -PRESENT = TRUE; 

$ 2252 5 CLK , TICK S = 0; 

: 2253 5 S = .SWP_TIME / 100; 

, sae : MINUTES = (.SWP_TIME mod 100) + 1; 

; 

‘ 2256 5 while .MINUTES gequ 60 do 

; 2257 6 papie 

5 2258 6 MINUTES = .MINUTES - 60; 

' 2259 6 HOURS = .HOURS + 1; 

: 2260 5 end; 

: 2261 5 

: 2262 5 HOURS = .HOURS mod 24; 

’ 2263 4 end; 

’ 2264 4 

: 2265 4 NEX = dag} 

: 2266 4 CSR_MEM = FALSE; 

; 2267 4 SETVEC (4, NEX TRAP, PRIO7); 

; 2268 4 bursty .0 = .CSR_ADD; 

: 2269 4 OUMMY 0; 

:; 2270 4 CURVED (4); 

$ 2271 4 

$ 2272 4 

’ 4 


if not .NEX 


VAX-11 Bliss-16 v4.1-582 


DISK SUSER2: (ML YNAR . ZRQ)ZROAHO.BL2; 3 


! START OF SUPERVISOR 


!IF APT 


APT MAIL-BOX IS OFFSET AT OCTAL 62 FROM 


BEGINNING OF SUPERVISOR 


CHECK IF LINE-CLOCK PRESENT 


SET TRAP CATCHER ADDRESS 

TRY TO ADDRESS THE CLOCK 

DUMMY INSTRUCTION 

RETURN LOC 4 TO THE SUPERVISOR 


SET FLAG IF CLOCK PRESENT 

pee TAT Ze THE LINE-CLOCK TICK COUNT 
TIME OF DAY CHOURS) 

TIME OF DAY (MINUTES) 


NORMALIZE MINUTES 


NORMALIZE HOURS 


a IF MEMORY CSR PRESENT MMM 


SET TRAP CATCHER ADDRESS 

TRY TO ADDRESS THE MEMORY CSR MMM 
DUMMY INSTRUCTION MMM 

RETURN LOC 4 TO THE SUPERVISOR MMM 


MMM 


_——— - EEE aoa eet st tpn ee 


—— 


SEQ 0275 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 

vo2.3 TEST SECTION 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR. ZRGIZROAHO.6L2;3 °°%* 
2274 4 then MMM 

2275 5 begin MMM 

; 227% 5 CSR_MEM = TRUE; ! SET FLAG IF CSR PRESENT MMM 

s 2277 4 end; ' MMM 

; 2278 4 : 

5 2279 3 end; 

; 22 3 

: 2281 3 

' 2262 3 if .CLK_PRESENT 

; 2263 3 then 

+ Ses 6 SETVEC (a0100°. TINE. PAIOS) 

; ’ ‘ I06 o 

; 2266 4 LINE CLOCK = BITé6; : | START IME Choe” 

, 2287 3 : 

. 

$ 22869 3 if .CSR_MEM and .TST_PAR ! MEMORY CSR PRESENT AND MMM 

$ aoe : then ' ENABLE MEMORY PARITY a age MMM 

5 ty Me ! THEN ENABLE MEMORY PARIT 

, 223¢ : "Tite ed 34s PARITY, PRIO7); ! MEMORY PARITY VECTOR MMM 

ry = ’ ’ 

. 5594 3 ‘ ! ENABLE MEMORY PARITY on 

$ 2295 3 

; se38 : RFLAGS (ORS_FLAGS); ! READ ORS FLAGS INTO LOC DRS_FLAGS 

$ 2298 3 if BIT_TST CORS_FLAGS, HOE) l HOE 

| $300 «3 ener OE_FLAG © TRUE yj 

3 = = ‘ ‘ 

5301 3 8 !' SET FLAG IF ‘HOE’ SET 

: 2302 3 

. Ft +44 : INIT_TEST (€); ! INITIALIZE TEST ENVIRONMENT 

; 2305 ; incr CTLR from 0 to (MAX_CTLR - 1) do ' FOR EVERY CONTROLLER 

i 

’ 2307 3 if €.CST (.CTLR, STATE) eaql ONLINE) and 

BS CSET ER: SIA Sh OS Pe = See 

3 . 

: 2310 3 then’ ges 

; s3t3 : incr OFFSET from (O + OF_UN) to CCUNITS_PER_CNTR - 1) « UNIT_SIZE + 4) by UNIT_SIZE do 

: 2313 3 if .CST (.CTLR, .OFFSET OF DATA, TAT 

. Seis 3 le + D_S ) eql ONLINE ! IF AT LEAST ONE UNIT ALIVE 

8 2315 4 begin 

; 2316 4 EOP_FLAG = FALSE; ! NOT END OF PASS 

: 2317 4 exitloop; 

’ 2318 3 end; 

$ 2319 3 

: 2320 3 if not .EOP_FLAG 

S353 ; wie MULTI_DORIVE () 

3 = 

' oe? mote ; ! RUN MULTI-DRIVE TEST 


-TITLE ZRGQAM3 RD/RX EXERCISER 


= SSS — = 
ee 


l2 
(2) 


SEQ 0276 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 age 13 
vo2.3 TEST SECTION 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZROAHO.BL2; 3 (2) 
-IDENT /V02.3/ 
-ENABL AMA 
000000 -PSECT $GGG$, RO 
000000 COMM. AREA: oe 
000050 DPST: .BLKW 2 
| 000054 MAX.LBN:.BLKW 4 
— 000064 STORAGE: .BLKW 4 
000074 ICOM. ADDR us : 
000076 ICST.ADOR 
LKW 1 
000100 IOCT.ADOR ae : 
000102 000000V INT .ADDOR 
-WORD AZINTO 
000104 ICTLR: .BLKW i 
000106 EL .FLUSH: feet 
000110 MX1: BLKW 1 
000112 MX2: BLKW 1 
000114 MAD1 BLKW 1 
000116 MADe : .BLKW 1 
000120 LAST.PKT: 
000126 RNDYO: .BLKW 1 
000130 RNDY1: .BLKW 1 
000132 FRAME .CNT: 
000134 R.STRING: 
.BLKW i 
0001 127102 RNDYIN: .WORD -50676 
000140 143662 . WORD -34116 
000142 0367 -WORD 36750 
000144 121624 . WORD -56154 
000146 023267 -WORD 23267 
000150 561 -WORD 36561 
000152 063714 -WORD 63714 
000154 160255 . WORD -17523 
000156 1342350 . WORD -43550 
©00160 000017 RNDMSO: .WORD 17 
000162 77 .WORD 377 
000164 777 -WORD 7777 
200286 177777 . WORD -1 
000170 177777 . WORD -1 
000172 177777 . WORD -1 
000174 177777 . WORD -1 
000176 177777 . WORD -1 
000000 RNDMS1: .WORD 0O 
000000 .WORD 0O 
000204 000000 -.WORD 0O 


Se —_-— 
———— a ee 


RO/RX EXERCISER 
TEST SECTION 


PATO2: 
PATOS: 
PATO4: 
PATOS: 
PATO6: 
PATO7: 


PATOS: 


PATOS: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


VAX-11 Bliss-16 v4. 


1-582 
DISK SUSER2: [MLYNAR. TRO} 2ROAHO. BL2;3 


SEQ 0277 


age } 
(2) 


—_——-—— -.-— - 


: 


seecceeessenNeTETEEETEEEE 





477777 
177777 
177777 
000000 


RO/RX EXERCISER 
TEST SECTION 


PAT10: 
PATI1: 


PATI2: 


a§SGES55 55555008555 055 55500000505 05SENSESESENGEDENGS 


' 
pe 


o:'o:'o::o0o0o01 
- pp 


‘vie 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


VAX-1 
DISK$ 


SEQ 0278 


_ ee CC —————— _ -— —— — 


SEQ 0279 
/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 1 
Test SECTION 10-Oct-1985 09:21:16 DISK $SUSER2: (ML YNAR . ZRQ)ZRGAHO.BL2;3 (2) 


PAT13: 
PAT1I4: 


33888 


r 


EEEECEEAITRLEEEEETEETEETTTE 


ee 





NUON 
NUUG~A~ 
~nnNN~w 
saniNAS 
anns 


OM he pepe pe 
nA 

~“ 

“ 

~“ 


ey 


-3 


-— 


—_—— —— -- . —-_ __.. _ 





ee ee 


SEQ 0280 
RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 
TEST SECTION 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZRQAHO.BL2;3 (2) 


PAT1I7: 


PAT18: 


SU SGEGESES SES ISSSEGESSEDESGESEUGE SEDGE SESEESESERGESES 


Oo 
' 
> 
Ww 
~ 
> 
~J 


PAT19: 


— TT -- —_-- = -——_—- — - 


- owe 


—__- —— a = 


— — — - er eeeeEeEeEeEeeee———— ———— —— -—— > 


SEQ 0261 
RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-562 Page 18 
TEST SECTION 10-Oct-1985 09:21:16 DISK SUSER2: (MLYNAR. 7RG)ZROAHO. BL2;3 (2) 


PAT21: 
DPA.T 


s 


GSSGESSSSESSIESENSENENEIOUIOES 


000704' 
000760' 
001034' 
001110’ 
001164’ 
000000 


000000 


RO/RX EXERCISER 
TEST SECTION 


. WORD 
. WORD 
. WORD 
. WORD 


. WORD 
BST.CNT: .WORD 


SEQ 0282 
Page 


VAX-11 Bliss-16 V4.1-562 


10-Oct-1985 09:41:47 
DISKSUSER2: [ML YNAR. 7RQ}2ROAHO. BL2;3 


10-Oct-1985 09:21:16 


BST.DEV:.WORD 0 
CURRENT . VECTOR: 


DRS.START: ca 

PAR.TSD: .BLKW 

APT .MODE : 
_BYTE 


o Fre 


-EVEN 
MAIL .BOX. TESTNUM: 
MAIL .BOX.SUBTST: 


. BLKW 
COMPARE .DATA: 

.BLKB 

. EVEN 
ORS .FLAGS: 


KW 
RD .MAX. SEQ. i 
RX .MAX. SEQ. CNT: 
-BLKW 





1 
1 
1 


CST, CST. ST ADDR DCT, OCT.ADOR 
TRORX A ADDR. est. TA TALLY, r. 


nSCP BeBKt , JP Pi ADDR. PKT 
F ADDR. BUFF ODR 100@. IN 
Y.REASON, EOP.FLAG 


700g. 
DUP.FLAGS, CCTLR, CDISK. CUOFF 
TLR. CNT I 


T-A06R . ADOR 


seoneTt 
Vtoc. PK” 


; R, TYPeu. BAL . IN. PROGRESS 
.MEM, CSR.ADD. TST 
MAN. TST, P. INDEX, RD.COUNT. BRUEVEL 
D.FAIL, DBM12, DBM18. DBM19, DBM20 
DBM21, DBM22, Denies . 08 
DBM109, DBM111 


DBM27, DBM1 
DBM112, DBM120, DeMi2i. 0BM123 


19 
(2) 


A 


— TT ee a _ 


SEQ 0283 
ZRQAMS RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-562 _—~ 20 
vo2.3 TEST SECTION 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZROAHO.BL2;3 C2) 


DBM125 0BM126, 08M127,. DBM128 
EH.0, “H.1, EH.2, EH.3. EH.4, EH.S 
" EH .8, EH.9. EH. 
EH.12. EH.13, MSG.02. MSG.03, EGS.02 
: i2, EGD.i3 


— . .20 EGO. 
EGD.22, EGD.23. EGD.24. EGH.30 
OF .MSG, HRD.MSG, SFT HRO. SUB 
CRLF, SwP. ERROR: SWP.XFER, SWP.FLAGS 


SWP.RAT, SWP.DPAT, SUP. UCNT SUP quire 
Sup -UOPAT. LELUN, L $UNI NEXT 


OUT.I00@, IN.IODQ. ae PUT .PKT 


AS, DROP. 
EMS.R2, EMS.R1, E . CMP 
EMS.ERR, EMS.10, EMS.12, EMS.13 
4 Fog EMS.18, EMS.21, EMS.24 





EMS 

000001 ON== 1 

000002 OFF == 2 

100000 BIT1S== - 100000 
BIT1i4== 40000 
BIT135== 20000 

010000 BITi2== 10000 
BITii== 4000 
BIT10== 

001000 BITO9== 1000 
BITOS== 
BITO7== 

000100 BITO6== 100 
BITOS== 40 
BITO4== 

000010 BITO3S== 10 
BITO2== 4 
BITO1== 2 

000001 BITOO== 

001000 BIT9== 1000 
BIT8== 400 
BIT7== 

000100 BIT6== 100 
BITS== 40 
6IT4== 

000010 BIT3== 10 
BIT2== a 
BITi== 2 

000001 BITO== 1 

000035 EF .NEW== 35 

34 EF .PWR== 


-_—_—— 


re I 


ee 





A str _— 


SEQ 0284 
P 


ZRQAMN RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-562 ege 2 
vo2.3 TEST SECTION 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQ)ZRQAHO.BL2; 3 (>) 
EF .START== 40 
EF .RESTART=< 37 
EF .CONT =s 36 
PRIO7=<= 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3<= 140 
PRIO2== 1 
PRIOI== ' 
PRIOO== 0 
EVL== o 
| LOT== 10 | 
ADR== 20 
IDU== 40 | 
ISR== 100 
UAM«= | 
BOE == 
PNT == 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE == - 100000 


-S8TTL $T1 TEST SECTION 
-PSECT $sCODE$, RO 





$T1: JSR R1, $SAVES : 216 
MOVB #1.€0P.FLAG : 218 
#1. COMPARE . DATA : 21 
BIC @2.0UP .FLAGS ; 218 
HOE .FLAG ; 21 
CLRB FORCED.ERROR ; 218 
CLR R2 ; I 219 
is: MOV R2,-(SP) ; I,e 21 
MOV 043, -(SP) 
JSR BLS 
CLR R1 ; J 21 
2%: MOV RO,R3 ; 21 
ADD R1,R3 3; J.* 
ASL R3 
CLR MSCP .. PKT(R3) 
INC Ri ; J 21 
CMP R1,@42 3; J,* 
BLE 
MOV R2,(SP) ; Ie 21 
JSR PC BL SMUL 
CLRB MSCP.PKT+S5(RO) 
ADD 06, SP ; 219 






RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-S82 22 
TEST SECTION 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR.ZRQ)ZROAHO.BL2,3 ™" (55 
TNC R2 ‘2 2192 
000013 chp R2.013 ; I.e 
ck Oe I 
3 220 
38: CLR R1 : J 2 
as HOV R2.RO ; I.e 220 
ADD R1.RO ‘ee 
ASL RO 
0000006 CLR RETPKT(RO) 
INC Ri — 2 
000025 CMP R1.¢25 3 J,*@ 
105 «oa. I 
e ; @, 220 
Soooks CMP R2, 232 e I,@ 
BLE 3$ 
S$ HOV Re. -(SP) .% 2 
: a 3 .* 
000041 MOV @41, -(SP) 
000006 JSR PC. BL SMUL 
CLR Ri ; 
6$: MOV RO.R3S 3 
ADO R1_R3 , he 
0000006 CLR ELOG.PKTC(R3) 
INC 3; J 
000040 CMP 
BLE 
MOV R2,(SP) 3 I, 
JSR PC 
1 CLRB  €LOG.PKT+1(RO) 
ADO #6 .SP ; 
INC R2 ; I 
000014 CMP R2.014 ; 2s 
000020 0000006 eit #20. SUP .FLAGS ; 
0000006 BIC #40, SWP FLAGS : 
000000G 7$ Bit 62. WP FLAGS ; 
000 0000006 BIC 7 ; 
1 0000006 8s BITe ; 
BEQ 
se si 
ag MOV ; 
ASL 
ADO 
001250' ADO 
000001 4 ; 
1 00 MOVB $1,APT.MODE ; 
001250' 001256 MOV DRS. START, MAIL .BOX. TESTNUM ; 





mmm elt 





<N 
ow 
. © 
ut 

ws 


if 


cE 


: 


ets ss ket seer 


sSceass 


Be 


poe ~N 
2o Sans 


fo 


SEQ 0286 





RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 23 
TEST SECTION 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR .ZRQ)ZROAHO.BL2;3 (2) 
000070 001256’ ADD @70,MAIL .BOX. TESTNUM 
001250’ 001260’ MOV DRS.START, MAIL .B0X.SUBTST ; 2236 
000066 001260’ ADD 66 ,.MAIL .BOX.SUBTST 
10$: CLR NEX ; 2240 
000000G CLRB CLK. PRESENT ; 2241 
000340 MOV 340, -(SP) : 2242 
0000006 MOV @NEX. TRAP, -(SP) 
000004 MOV #4, -(SP) 
000003 MOV @3,-(SP) 
TRAP 37 
177546 MOV 80177546,R1 ; *,DUMMY.0O 2243 
CLR R2 ; DUMMY. 1 2244 
000904 BR #4,R0 : 2245 
000001 000000G BIT 01. NEX ; 2248 
000001 000000G MOVB #1,CLK.PRESENT ; 225 
0000006 CLR CLK. TICKS ; 2 
C00000G MOV SWP . TIME, (SP) ; 2253, 
000144 MOV 144, -(SP) 
0000006 JSR PC ,BLSDIV 
000000G MOVB RO, S 
0000006 MOV SWP. TIME, (SP) ; 2254 
000144 MOV $144, -(SP) | 
0000006 JSR PC ,BL$MOD 
MOV RO,R3 
000000G MOVB R3, MINUTES 
000000G 000074 11$: CMPB MINUTES, #74 ; 22 
BLO 12$ 
CLR RO ; 22 
0000006 BISB MINUTES ,RO 
000074 SUB 074, | 
000000G MOVB RO, MINUTES 
000000G INCB HOURS to 225 
11$ ; 22 
12$: CLR (SP) ; 2262 
0000006 MOVB HOURS, (SP) 
000030 MOV #30,-(SP) 
0000006 HOVE 8 Fe Set 
000006 ADD . ; 22 
0000006 13¢: CLR NEX ; 226 
000000G CLR CSR.MEM ; 2266 
000340 MOV #340,(SP) : 2267 
0000006 MOV @NEX. TRAP, -( SP) 
000004 MOV o4,- 
000003 MOV 3, -(SP) 
TRAP 7 
0000006 MOV @CSR.ADD.R1 ; *,DUMMY.O 2263) 
CLR R2 ; DUMMY. 1 2269 
000004 MOV #4,RO ; 2270 
TRAP 36 


“ a Ne ce eee 


— _ 


eee ststensnsesndiaesnesieninmenmmeneeeees - 


SSSssoooses 


- ——_———— oe 


$8888888888 
Nero 
&nero 


aNSROSesarssns 


~~~ 
MOMS 


032737 
001005 
012737 


012701 


RO/RX EXERCISER 
TEST SECTION 


000001 000000G 
000001 000000G 
000016 
000001 000000G 
000300 


000100 
00000 


000053 
000000G 


14$: 
15%: 


16$: 


17$: 


18$: 
19$: 


20$: 
21s: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


@1,NEX 
14$ 
#1,CSR.MEM 


#16,SP 
#1,CLK .PRESENT 
16$ 


3 

—— 
#1,CSR.MEM 
17$ 
#1,TST.PAR 
17$ 

#340, -(SP) 
#114, -(SP) 
$3, -(SP) 

37 
#1,3CSR.ADD 
#10,S°P 

21 
RO,ORS.FLAGS 
#77777,RO 
RO,#-100000 
18$ 

#1,R0 

19$ 

RO 

RO, #-100000 
20$ 


#1, HOE .FLAG 
~ Saaeeiliald 


VAX-11 Bliss-16 v4.1-562 
DISK $USER2: (ML YNAR . ZRQ)ZROAHO.BL2; 3 


CTLR 
CTLR,«* 


; CTLR,« 


; CTLR,# 


; *, OFFSET 


SEQ 0287 
P 


2293 


3 33 


om - eee ee 


| 
ase 
! 
| 
} 


SEQ 0285 
P 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-58z age 25 
vo2.3 TEST SECTION 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR. 7RQ)2ROAHO. BL2;3 (2) 
001206 010003 22s: MOV RO,R3 ; 2313 
001210 060103 ADD R1,R3 ; OFFSET,« 
001212 006303 ASL R3 
001214 032763 920000 000000G BIT #20000 ,CST(R3) 
001222 001403 BEQ 3$ 
001224 105037 000000G CLRB EOP .FLAG ; 2316 
001230 000405 BR 243 : 2315 
001232 062701 000012 23%: ADD #12,R1 ; *,OFFSET 2311 
001236 020127 000042 CMP R1,¢42 ; OFFSET,*« 
001242 003761 BLE 22$ 
001244 022626 243: CMP (SP)+,(SP)-+ 
001246 005202 253: INC R2 ; CTLR 2305 
001250 000243 -WORD CLV!CLC 
001252 003724 BLE 21$ 
001254 132737 000001 000000G BITB #1,E0P.FLAG : 2320 
, 001262 001002 BNE 26$ 
001264 004737 \d000000V JSR PC,MULTI.DRIVE ; 2322 
001270 000207 26$: RTS PC 3 2167 
s Routine Size: 349 words, Routine Base: $sCODE$ + 0000 
; Maximum stack depth per invocation: 13 words 
-SBTTL T1 TEST SECTION 
000000 004737 000000’ Tl:: 
000000 1$: JSR PC,$Ti ; 232 
000004 194466 TRAP 66 
000006 006000 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
+ Routine Size: 6 words, Routine Base: ‘s$CODE$ + 1272 | 


: Maximum stack depth per invocation: 2 words 


- —— = 


——_—_— — —— a Ee — —-.. 


ZRQAM3 
vo2.3 


; 
: 
: 
; 
; 
; 
: 
; 
; 
; 
: 
‘ 
: 
; 
: 
; 
; 
: 
: 
; 
; 
: 
; 2346 
: 
; 
; 
; 
5 
; 
; 
; 
$ 
’ 
: 
: 
: 
$ 
' 
; 
: 
: 
: 
: 
' 
: 


DID C8 Be Be BN Be Bh BN 8 hh hd 8 GER DD ee ee ee pe ee ee ee 


004137 
004737 
005002 
010246 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 


INITIALIZATION TEST ROUTINES 
‘INITIALIZATION TEST ROUTINES’ 


ssbttl 


10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZRGAHO.BL2 


GLOBAL routine INIT_TEST : novalue = 


Soe ee +e +e eS fe ee te te te te ee 
> 


THE TY og ey TEST IS DESIGNED TO VERIFY THE EXISTENCE on THE 
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO 
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI" ORIVE TEST 
OR THE OM EXERCISER. 


BASICALLY, THE DEVICES ARE BROUGHT ONLINE VIA “DRIVER_INIT”, WHICH IS 
INVOKED IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE 
MARKED OFFLINE IN THEIR DCT AND CST. FOR THOSE DEVICES WHICH SURVIVE 
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO 
EACH DISK VIA ROUTINE “ACCESS”. THE INITIALIZATION TEST Is DEEMED A 
SUCCESS IF A BLOCK OF EACH DISK CAN BE ACCESSED. 


DREVER_INIT (); ! INIT DRIVER DATA AND DEVICES 

iner CTLR from 0 to (MAX_CTLR - 1) do ! FOR EACH CONTROLLER 
Se? CPAR (.CTLR);: ! SET UP COMMONLY-USED CONTROLLER-RELATED DATA ITEMS 
if .CST_ADDR [STATE] eql ONLINE ! IF CONTROLLER IS STILL ALIVE 
then : FOR EACH DISK 


incr OFFSET from (O + OF _UN) to (CUNITS_PER_CNTR - 1) # UNIT_SIZE + OF_UN) by UNIT_SIZE do 
f (.CST_ADDR [.OFFSET + OF_DATA, p _PRES) eal PRESENT) and 
(.CST_ADDR [.OFFSET + OF _DATA, D_ STAT] eal ONLINE) and 
OR -CST_ADDR [.OFFSET > OF DATA, O_FATAL)) 
n 


se? U UPAR ( .OFFSET); SET UP UNIT-RELATED DATA ITEMS 
IF SwWP_DINT NEQ (. bup _FLAGS AND SWP _DINT ) Z2ZZ 


THEN ACCESS (); 1222 
!SKIP IF DUP CAUSED INiT 222 
end; ! IF UNIT IS PRESENT AND ONLINE 
end; ! CONTROLLER LOOP 
! ROUTINE INIT_TEST 


. SBTTL INIT.TEST INITIALIZATION TEST ROUTINES 


INIT. TEST: 

JSR R1,$SAVE2 ; 

JSR PC,ORIVER.INIT 3 

CLR R2 ; CTLR 
1$: MOV R2,-CSP) ; CTLR,« 


SEQ 9289 on 
age 
:3 (3) 


as —_— LLL sss tt pe _ 


Se 


ZRQAM3 RDO/RX EXERCISER 
vo2.3 INITIALIZATION TEST ROUTINES 


000014 004737 000000G 
000000G 
4 760 000002 


100035 

000032 012701 000003 

000036 010100 2s: 
006300 


06 
000112 062701 000012 3$: 


005726 4$: 


; Routine Size: 47 words, 


Routine Base: 
; Maximum stack depth per invocation: 5 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


JSR PC ,SET.CPAR 
MOV CST .ADDR,RO 
TST 2(RO) 

BPL as 

MOV #3,R1 

MOV R1,RO 

ASL RO 

ADD CST.ADOR ,RO 
BIT #40000 , (RO) 
BEQ 3$ 

BIT #20000, (RO) 
BEQ 3$ 

BIT #10000, (RO) 
BNE 3$ 

MOV R1,(SP) 

JSR PC,SET.UPAR 
BIT @2,DUP .FLAGS 
BNE 

JSR PC,ACCESS 
ADD #12,R1 

CMP tT a 


BLE 

TST CSP )« 
INC Re 
-WORD CLV!CLC 


BLE 1$ 
RTS PC 
SCODE$ + 1306 


VAX-11 Bliss-16 v4.1-5862 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 


, OFFSET 


OFFSET,« 


OFF SET,«# 


*«, OFFSET 
OFFSET,« 


CTLR 


SEQ 0290 
P 


ee | ee 


end; 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


9) 
ATA 


PRES) 


VAX-11 Bliss-16 V4.1-562 age 
DISK $USER2: (ML YNAR . ZRQ)ZRQAHO.BL2;3 (4) 


DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE 


incr OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) # UNIT_SIZE 


eat PRESENT) and ! 


» D_FATAL)) 

_NAME 1) = to 
-NAME_1] = so 
-NAME_2] = so 
-NAME_3] = so 


bPLALH 


0 
0 
0 
0 


ZRQAM3 RD/RX EXERCISER 
vo2.3 INITIALIZATION TEST ROUTINES 
2369 1 GLOBAL routine DRIVER_INIT : novelue = 
say) its 
.* 
2372 1 ' THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY 
2373 1 ' POINT OF A STANDARD 
2374 i ' DRIVER DATA, AND TO BRING EACH RDRX CONTROLLER AND UNIT (DISK) 
2375 1 ' ONLINE. 
2376 1 '. 
2377 1 
2378 2 begin 
2379 2 
2380 2 locai 
2361 2 PKT_ADOR; 
23862 2 
2383 2 PKT_ADDR = MSCP_PKT + 10; 
2384 2 NEXT_PKT_USE = 6; 
2385 2 : 
2386 2 incr COUNT from 0 to (PKT_CNT - 1) do 
2387 3 begin 
23668 3 PKT_USE [.COUNT]) = -1; 
2349 3 MSCP_PKT [.COUNT, PKT_LO) = .PKT_ADDR; 
2390 3 MSCP_PKT [.COUNT, PKT_HI] = 0; 
2391 3 MSCP_PKT [.COUNT, CONNID) = CID_DISK; 
2392 3 PKT_ADDR = .PKT_ADDR + (PKT_LEN «# 2); 
2393 2 end; 
2394 2 
2395 2 iner CTLR from 0 to (MAX_CTLR - 1) do 
2397 2 if .CST (.CTLR, IP_ADDR) neaqa 0 
2398 2 then ; 
2399 3 begin 
2400 3 SET _CPAR (.CTLR); 
2401 3 CURRENT_VECTOR = .CST_ADDR [VEC_ADDR]; 
2402 3 BRLEVEL = .CST_ADOR (6R_LEV) ¢ 5; 
2403 3 CTLR_INIT (); 
2404 3 
2405 3 if .DCT_ADOR [STAT] eal ONLINE 
2406 3 then 
2407 3 
2408 3 
2409 3 
2410 3 if (.CST_ADOR [.OFFSET + OF _DATA, 
2411 4 (not .CST_ADOR (.OFFSET + OF_D 
2412 3 then — 
2413 4 begin 
2414 4 CST_ADOR [.OFFSET + OF __NAME_O 
2415 4 ST_ADOR [.OFFSET + OF __NAME_0O 
2416 4 CST_ADDOR [.OFFSET + OF __NAME_2 
2417 4 CST_ADDR [ .OFFSET + OF _NAME_2 
2418 4 SET_UPAR (.OFFSET); 
2419 : UNIT_INIT (); 
3 


SEQ 0291 
p 


ADOR (TEXT + 0) OF 1ST MSCP PKT 
NEXT PACKET TO ALLOCATE 


FOR EACH MSCP PACKET 


MARK PACKET FREE 
LOAD ADDR INTO BUFFER DESCRIPTOR 


SET CONNECTION ID TO MSCP ID 
ADVANCE ADOR TO NEXT PACKET 

FOR EACH CONTROLLER 

IF CONTROLLER IS PRESENT 

CURRENT CONTROLLER PARAMETERS 
CURRENT CONTROLLER'S VECTOR 

SET CURRENT CONTROLLER’S BR LEVEL 
INIT DEVICE AND CTLR DATA 


IF CONTROLLER IS STILL ALIVE 
FOR EACH DIAK UNIT 


+ OF _UN) by UNIT_SIZE do 
IF UNIT EXISTS 


BLANK DEVICE NaAME 


SET UP UNIT-RELATED DATA ITEMS 
BRING UNIT ONLINE 
IF UNIT EXISTS 


ZRQAM3 
vo2.3 

2422 2 
: 2423 2 
; 2424 i 


000000 004137 


A _ — TT 


RD/RX EXERCISER 


INITIALIZATION TEST ROUTINES 


end; 


2$: 


001246' 
177000 001246’ 


3$: 


010000 


———— 


~SBTTL DRIVER.INIT INITIALIZATION TEST 
DRIVER. INET: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


R1,$SAVE3 
@MSCP .PKT+12,R2 
NEXT .PKT.USE 


R1 
#377 ,PKT.USECR1) 
R1,-CSP) 


po -PKT+11(RO) 
#106 ,R2 

(SP)+,(SP)+ 

R1,013 

1$ 


CST. ADOR 
2(RO), S CURRENT. VECTOR 
#177000, CURRENT . VECTOR 


(SP 
4CRO), CSP) 
“5 "BL $SHE 

0, BRLEVEL 
PC cCTLR INIT 
a@D0CT . ADOR 


SEQ 0292 
VAX-11 Bliss-16 V4.1-582 Page 29 
DISK SUSER2: (MLYNAR . ZRQ)ZRGAHO.BL2;3 (4) 
! IF CONTROLLER IS PRESENT 


! ROUTINE ORIVER_INIT 


ROUTINES 

; 2369 
; *,PKT.ADOR 2383 
$ 2364 
; COUNT 2386 
; *,*(COUNT) 2388 
; COUNT,« 2389 
; PKT.ADOR,«* 23 | 
: 

; 3339 
; *,PKT. ADDR 239 
; 238 
; COUNT 

; COUNT, 
; CTLR 23 

; CTLR,« 239 
; CTLR,«# 24 

$ 2401 
3 240 
3 2403 
3 240 
; *,OFFSET 24 

: , 241 
; OFFSET,« 

; 2411 
; OFFSET,« 2414 


- — + +--+. -- ee 


000326 

000330 000207 
: Routine Size: 
: Meximum stack 


RO/RX EXERCISER 


INITIALIZATION TEST ROUTINES 


000040 000012 
000040 000013 


000040 000014 
000040 000015 


109 words, 
depth per invocation: 


4$: 


5$: 
6$: 


Routine Base: 
7 wor 


eee —_—_ 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


ASL RO 
ADD R2,RO 

MOVB 40,12(RO) 
MOVB 0:13(RO) 
MOV R1,RO 

ASL 

ADD R2,RO 

MOVB 40,14(RO) 
MOVB 40.15(RO) 
MOV R1,(SP 

JSR PC: SET.UPAR 
JSR PC: UNIT. INIT 
ADD #12,R1 

CMP ; 

BLE 3$ 

CMP (SP)+,(SP)+ 
INC R3 

-WORD CLV!CLC 

BLE 2$ 

RTS PC 


$CODE$ + 1444 


VAX-11 Bliss-16 V4.1-5862 
DISK $USER2: [MLYNAR . ZRQ)ZRQAHO.BL2;3 


| 
; OF 


; 
; OF 


: OF 


a -_— —m ee 


FSET,« 


FSET,« 


OF FSET 
FSET, * 


; 
; CTLR 


SEQ 0293 


SEQ 0294 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Page 31 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 § DISKSUSER2:(MLYNAR.ZRQ)ZROAHO.BL2;3 (5) 

2425 GLOBAL routine CILR_INIT : novalue = 
mi 
2428 ‘ THIS “DRIVER” ROUTINE IS CALLED FROM ORIVER_INIT FOR EACH CONTROLLER 
2429 : CONFIGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RORX ONLINE 
2430 TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO: 
2432 ‘ .. INITIALIZE ORIVER CONTROLLER DATA, INCLUDING THE OCT, 
2433 ‘ 2. SET UP THE DEVICE'S INTERRUPT VECTOR A 
2434 ‘ 3. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE, 
2435 ' 4. PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR 

| 2436 ; ADDRESS AND INTERRUPT REQUEST LEVEL 

| 2437 S. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE. 

| 2439 ' IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE 
2440 i DEVICE ARE DROPPED. 
2441 '. 
2442 
2443 begin 
2444 
2445 local 
2446 RESULT : byte; 
2447 


INI_CTLR_DAT (); 


INITIALIZE CONTROLLER DATA 
'ZZ2Z _—SETVEC C. CURRENT VECTOR, .INT_ADOR [ A EETERD, CEOS) SET 


DEVICE'S ASSUMED VECTOR ADDRESS 


i) 
be 
Ww 
sad 
NVVVUNNUBUNNNN UNV UUUNVNN UNV NNVVND eb pe peeps pepe pepe pepe pe pe 


0 
4 
2450 SETVEC (.CURRENT T VECTOR. -INT_ADDA (.CCTLRI, EVEL); ! SET DEVICE'S ASSUMED VECTOR ADDRESS 22Z 
2451 DCT_ADOR [IG_INT] = TRUE; ! SET “IGNORE INTERRUPT” BIT 
52 L$LUN = .CST_ADOR [OF . UN + OF _DATA, D_UNIT]; ! GET FIRST UNIT NUMBER OF CONTROLLER 
(USED BY DRS FOR DEVICE-FATAL CTLR ERRORS) 
2454 IF SWP_DINT NEQ (.DUP_FLAGS AND SWP_DINT) ‘IF OUP 222 
2435 THEN ‘CAUSED INIT, SKIP THIS CODE 2722 
2457 if REG_EXIST () eql FAILURE ! REGISTER EXISTENCE TEST 
2458 then 
2459 ani 
2460 DROP_CTLR (.CCTLR, DU_INIT); ! DROP ALL CONTROLLER’S UNITS 
246) return; 
Saes 
2464 IF SWP_DINT NEQ@ (.DUP_FLAGS AND SWP_DINT) ‘IF OuP 2272 
2065 THEN ‘CAUSED INIT, SKIP THIS CODE 7277 
2467 if VEC_BR_TEST () eql FAILURE ! VECTOR ADDR AND BR LEVEL TEST 
2468 then 
2469 peain 
2470 DROP_CTLR (.CCTLR, DU_INIT); ! DROP ALL CONTROLLER'S JNITS 
2471 return; 
3373 _ 
2474 RESULT = HARD_INIT (); ! ATTEMPT HARD DEVICE INIT 
os73 DCT_ADOR (IG_INT] = FALSE; ! CLAER “IGNORE INTERRUPT” BIT 
2477 if .RESULT eql SUCCESS ! IF HARD INIT WAS SUCCESSFUL 


~~ owe ee ee eee ee 


LS A SS Se se aoe 


PNVUUN UUW & WWW WWW 


RO/RX EXERCISER 


INITIALIZATION TEST ROUTINES 
then 


else 


in 
ROBR VECT_OK = TRUE; 
INI_RRING (); 
WRT_RORX CRCSA, RC_ALL, SA_GO); 
if SET_CTLR_CHAR () eal SUCCESS 
then 


in 
OC "ADDR 
T_ADOR 


end 


eee 


STAT) = ONLINE; 
STATE] = ONLINE; 


begin 
DROP CTLR €.CCTLR, DU_INIT); 
end; 


CTLR.INIT:: 
MO 


1$: 


10-Oct-1985 09:41 


10-Oct-1985 09:21: 


:47 VAX-11 Bliss-16 V4.1-5862 


16 DISK $USER2: [ML YNAR .ZRQ)ZRQAHO.BL2; 3 


ADDRESS/VECTOR TEST PASSED 
INITIALIZE RESPONSE RING 

SET “GO” BIT (START CTLR POLLING) 
SET CONTROLLER CHARACTERISTICS 


MARK CONTROLLER ONLINE IN “DRIVER” 
MARK CONTROLLER ONLINE IN “PROGRAM” 


HARD INIT FAILED 
DROP ALL CONTROLLER’S UNITS 


ROUTINE CTLR_INIT 


-SBTTL CTLR.INIT INITIALIZATION TEST ROUTINES 


Ri, -(SP) 
BRLEVEL , -( SP) 
CCTLR,RO 


R 

INT .ADDRC( RO), -( SP) 
CURRENT . VECTOR, -( SP) 
63, -(SP) 


#40000 , @DCT . ADDR 
CST.ADOR ,20 
6CRO),R1 

Ri 

#177760,R1 
R1,L$LUN 

ae renee 

PC REG. EXIST 

RO 


1$ 
#2,DUP .FLAGS 


$ 
PC, VEC.6R. TEST 
RO 


wa 
~ 


2s 

CCTLR, (SP) 
62, -(SP) 
PC,DROP.CTLR 
#12,SP 


SEO Gaes . 
age 
(S) 





—-——— = 


——— eee 


ZRQAMS RO/RX EXERCISER 

vo2.3 INITIALIZATION TEST ROUTINES 
000146 000453 

000150 004737 \000000V 2s: 


11000 
000156 042777 040000 000000G 
64 120127 000001 


26 
000272 062706 000010 4$: 


; Routine Size: 97 words, Routine Base: 


+ Meximum steck depth per invocetion: 7 words 


MOV 
RTS 
$CODE$ «+ 


sss 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


5$ 

PC,HARD.INIT 
RO,R1 
#40000, 80CT . ADDR 
0 

#1, ADDR. VECT .OK 
PC, INI.RRING 


RORX. , 
R1,2CRO) 
PC,SET.CTLR.CHAR 
RO,@1 
#100000, 8D0CT . ADOR 
CST.ADOR ,RO 
#100000, 2¢RO) 
CCTLR, CSP) 
#2,-(SP) 
PC.DROP.CTLR 
(SP )+ 

#10,SP 

(SP)+,R1 
PC 


1776 


VAX-11 Bliss-16 V4.1-5862 Pp 
DISK $SUSER2: CRC YNAR: ZRQJZROAHO.BL2;3 


«, RESULT 
RESULT, « 


#,RC.REG 
RC.REG,« 


SEQ 0296 


33 
(S) 


2469 
2474 


2475 
2477 
2480 
2461 
24862 


2484 











SEQ 0297 
RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 yeas 34 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR .ZRQ)ZRGAHO.BL2;3 (6) 
: 2496 1 GLOBAL routine INI_CTLR_DAT : novelue = 
; feet 
5 7° 
+; 2501 1 ' THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER-RELATED 
; 2502 i ‘ DATA IN THE “DRIVER” PORTION OF THE EXERCISER. THIS INCLUDES THE 
s 250 i CONTROLLER’S DCT AND OUTSTANDING COMMAND LIST. 
i 2504 
1s 2505 1 ' IMPLICIT INPUTS: 
is 2306 i ' CCTLR - CURREN. CONTROLLER NUMBER 
4 7 3 OCT_ - ADDRESS OF CURENT CONTROLLER‘S DCT 
| _ 
| ‘ 1 ; 
5 10 2 beg' 
j as 2 OCT_ b ' CLEAR FIRST DCT WORD 
i 12 2 OCT_ OMM_AREA + 8 + (.CCTLR « COMM_LEN « 2); ' START OF RING | 
, 1 2 DCT_ -OCT_ADOR ([RR_BEG) + (CRRING_LEN - 1) «@ 4); ' LAST SLOT IN RESPONSE RING 
j 14 DCT. .OCT_ADDR (RR_END] + 4; ' START OF C RING | 
' iS 2 OCT_ -OCT_ADDR ([CR_BEG) + (CCRING_LEN - 1) « 4); ' LAST SLOT IN COMMAND RING 
‘= oo 16 2 OCT_ .OCT_ADDR (RR BEG); ! FIRST RRING SLOT TO POLL 
‘ 7 ¢ OCT_ DCT_ADDOR (CR_NEXT] = .DCT_ADDR [CR_BEG); ! CRING POLL AND NEXT COMMAND POINTERS 
i end; 
-SBTTL INI.CTLR.DAT INITIALIZATION TEST ROUTINES 
000000 004137 000000G INI.CTLR.DAT:: 
JSR R1, $SAVE2 ; 24 
000004 913701 0000006 MOV DCT .ADDR,R1 ; 251 
0 re CLR (R1) 
7 02 000004 MOV @4,R2 ; 251 
4 ADD 1,R2 
013746 0000006 MOV CCTLR, -(SP) 
000050 MOV -(SP) 
0000006 JSR PC, BL $MUL 
000010' ADD OMM. AREA-+10,RO 
MOV »CR2) 
000006 MOV »6(R1) : 251 
900014 000006 ADD #14,6(R1) 
10 MOV #10,R0 : 251 
ADD R1,RO 
000006 MOV 6(R1), (RO) 
000004 ADD »CRO) 
000012 MOV CRO), 12(R1) ; 251 
14 000012 ADD #14,12(R1) 
Go3eb6 mov (ne): d0cRt : zis 
000016 MOV CRO), 16(R1) 
CMP (SP)+,(SP)+ ; 251 
RTS PC ; 2498 
+ Routine Size: 42 words, Routine Base: *sCODE$ + 2300 


+ Maximum eteck depth per invocetion: 6 wor 


E 


od 
a 


T>¢ 


LAURA ALAA UL RRRRNNNA 
UadbUnre 0 oK 
VUES SPSS SUMS S SS SUUVUVUUUVIUNNNNNVYNNNVVNNDH Hee ee eee 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 


RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 10-Oct-1965 09:21:16 DISK SUSER2 : (ML YNAR . ZRQ)ZROAHO.BL2; 3 
GLOBAL routine REG_EXIST = 


o* Om Se Oe He Fe Fe Ce te 
e 









ISHED BY 
a.) @ 


DUE TO AN ABSENT DEVICE, 
“TRUE”. eo, 


loce 
Sumy 0 : wore : TEMP FOR READING SA AND IP 


bp em anton eql NEW_PASS 
return SUCCESS; 


SKIP TEST FOR NEXT PASS 





OF _RC = 2; ! SET UP TO READ SA FIRST 
do 7” 
in 
= FALSE; ! SET TO “TRAP NOT RECEIVED” 
TVEC (4, NEX TRAP, PRIO7); ' SET LOCATION 4 TRAP VECTOR ADDRESS 
.0 = .C.RBRX_ADOR OF _RC); ! READ REGISTER (THEN TRAP OR C ) 
DUMMY_1 = 0; ' NSTRUCTION TO COVER TRAP RETURN BUG 
‘ (TRAP RETURNS TO NEXT INSTRUCTION) 
CLRVEC (4); ! CLEAR LOCATION 4 TRAP VECTOR ADDRESS 
if .NEX : IF NEX TRAP OCCURRED 
=n 


C* Ba. TBL (.CCTLR, C_ERR_WRD) = .C_ER®_TBL [.CCTLR, C_ERR_HRD) «+ 1; 
if .APT_MODE 
then 

id _BOxX_TESTNUM = 1; 


L_BOX_SUBTST = 0; 
- 


ERROF (38, EGD_10. EMS_10); ' REGISTER EXISTENCE TEST FAILED 
SETPRI CPRIOO); * LOWER PRIORITY 
return FAILURE; 
end 
Oi, 8G 
OF _RC = .OF_RC - 2; ! SET UP FOR IP REG OR QUIT 


end 
until .OF RC lee O; 


LLL TT TT 


ne een ee eee 


ZRQAM3 
vo2e.3 


2572 2 
2573 1 


au 


8888883 
SERSSRSE 


ee ee pe pee 


S8388888838 
VFOANSADNOS 


88 


176 


004137 
123727 
012737 
005037 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


return SUCCESS; 
end; 


depth per invocation: 9 wor 


Q@_ 0299 
VAX-11 8 -16 V4. - : 36 


(21:16 DB SKIUSERS TMC SNAR SROTPROAMO.eL2,3 2% (38 


:21:16 


.SBTTL REG.EXIST INITIALIZATION TEST ROUTINES 
000000G REG.EXIST:: 
JSR R1, $SAVE2 : 2519 
000000G 000005 Cc ENTRY. REASON, oS ; 2535 
BEQ 4$ ; 2537 
000002 0000006 MOV 2,0F .RC ; 2539 
1s. CLR NEX : 2543 
000340 MOV #340, -(SP) ; 2544 
MOV @NEX. TRAP, -( SP) 
000004 MOV #4, -(SP) 
000003 MOV 03,-(SP) | 
TRAP 37 
0000006 MOV RDRX. ADDR, RO ; 2545 
000000G ADD OF .RC,RO | 
MOV (RO). RL ; *,DUMMY.0 | 
CLR R2 ; DUMMY. 1 2546 
000004 MOV 4 ,RO ; 254 
TRAP 
000001 0000006 gIT #1 .NEX ' 2550 
0000006 mov CCTLR.RO ; 2553 
0000006 INCB C.ERR.TBLCRO) 
000001 001254' BIT $1, APT. MODE ; 255 
000001 001256’ MOV #1, @MAIL .BOX. TESTNUM ; 25 
001260' CLR @MAIL .BOX.SUBTST ; 255 
2s: TRAP SS, ; 2562 
>. WORD ' 
.WORD €&GD.10 
.WORD €&MS.10 
CLR RO ; 256 
TRAP 41 
000010 ADD #10,SP : 2 
BR S$ ; 25 
000002 0000006 3$: SUB #2,0F .RC ; 2567 
000010 ADO 10,SP : 2542 
TST OF .RC ; 257 
BGE 1$ 
000001 4s: MOV $1,RO ; 
RTS PC 
S$: CLR RO ; 251 
RTS PC 
69 words, Routine Base: ‘sCODE$ + 2424 
' 


BRRRRRVRR 
Bee uausuansse 


‘ 


SEQ 0300 
Pege 


RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 
INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR. 7RQ}ZROAHO. BL2;3 


GLOBAL routine VEC_BR_TEST = 


e 


ras ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RDRX i oT ADDRESS GIVEN 

By THE USER DURING THE HW DIALOG IS VALID, AND (8) Tf THE 

USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT THE FIRST 

yoo Dh TS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO 0 AND FORCING 

X INiERRUPT. IF THE USER SPECIFIED AN INCORRECT VECTOR ADDRESS, 

THEN THE RESULT MAY BE UNPREDICTABLE. FOR THIS “teat THE MESSAGE 
“FUNCTIONAL TEST STARTED” IS PRINTED BEFORE THE T 

“EXERCISER STARTED” IS PRINTED AT ITS SUCCESSFUL “CONCLUSION. IF 

EITHER “FUNCTIONAL TEST " OR “EX wy OES NOT APPEAR, THEN 

PROGRAM CONTROL IS ASSUMED LOST AND A FATAL thar IS LIKELY TO OCCUR. AT 

THIS POINT, THE EXERCISER MUST BE STARTED AGAIN 


1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: begin 
2 if .ENTRY_REASON eal NEW_PASS 
2 then 
3 begin 
3 SETPRI (PRIOO); ' LOWER PRIORITY 
3 return SUCCESS; ! SKIP TEST IF NEXT PASS 
: end; 
‘ PRINTF (MSG_02); ! “FUNCTIONAL TEST STARTED” 
: ie INT_GEN () eal FALSE ' FORCE AN INTERRUPT 

en 
3 beats IF INTERRUPT DID NOT OCCUR 
z C_ERR_TBL (.CCTLR, C_ERR_HRD] = -C_ERR_TBL (.CCTLR, C_ERR_HRD) + 1; 
3 if .APT_MODE 
z then ; 

in 

4 Perc Box_TESTNUM = 1; 
4 .MAIL_BOX_SUBTST = 0; 
: end; 
3 ERRDOF (11, EGD_11, 0); ' VECTOR TEST FAILED 
3 return FAILURE; 
3 end 
e else 
3 pagin ! INTERRUPT DID OCCUR 
3 PRINTF (MSG_03); ' “EXERCISER STARTED” 
: SETPRI ( .BRLEVEL); ! SET PRIORITY TO ASSUMED BR LEVEL 
3 if INT_GEN () eal FALSE ! FORCE AN INTERRUPT (SHOULD NOT OCCUR) 


7 
(8) 


ee ———— ee ee 
—_— — 
—— ee ee 


ZRQAM3 

vo2.3 

; 2627 3 

$ 2628 4 

: 2629 4 

5 2630 4 

: 2631 4 

$ 2632 4 

$ 2633 4 

$ 26 4 

5 2635S 5 

; 2636 5 

$ 2637 5 

$ 2638 4 

5 2639 4 

$ 2640 3 

: 2641 3 

$ 2642 2 

; 26435 2 

; 2644 2 

: 2645 2 

$ 2646 2 

$ 2647 2 

: 2648 2 

$ 2649 3 

; 2650 3 

$ 2651 3 

: 2652 2 

; 2653 2 

$ 26 e 

; 2655 2 

$ 26 1 
000000 010146 
000002 005746 
000004 123727 
000012 001003 
000014 00 
000016 104441 
000020 00050 
000022 012746 
000026 012746 
000032 O01 
000034 104417 
000036 0047 
000042 005700 
000044 001023 
000046 013700 
000052 3 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


then 
peg Ha 
SETPRI ( .BRLEVEL - s0’40'); 
DELAY (1); 
; 


if .DCT_ADOR [SA_SAVE] neq 0 
then 


in 
SETPRI (PRIOO); 
return SUCCESS; 
end; 
end; 
end; 


SETPRI (PRIOO); 
C_ERR_TBL [. CCTLR, C_ERR_HRD) = 


if .APT_MODE 
then 


begin 
.MAIL_BOX_TESTNUM = 1; 
.MAIL_BOX_SUBTST = O; 
end; 

ERROF (12, EGO_12, EMS_12); 


return FAILURE; 
end; 


. GLOBL 


. SBTTL 
VEC .BR.TEST:: 
MOV 


000000G 000005 


1$: MOV 


' 
.C_ERR_TBL [.CCTLR, C_ER 


SEQ 0301 


VAX-11 Bliss-16 V4.1-582 


10-Oct-1985 09:41:47 
DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 5 


10-Oct-1985 09:21:16 


! IF INTERRUPT DID NOT OCCUR 
! LOWER PRIORITY BY 1 

! WAIT 

! MMM 


: IF INTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO) 


RESTORE PROCESSOR PRIORITY TO O 
ONLY SUCCESSFUL EXIT POINT 


COME HERE ~ FOR BR TEST FAILURE 


Do) «+ 1; 


LS$OLY 
VEC.BR.TEST INITIALIZATION TEST ROUTINES 
»-( SP) ; 
Rt es ) 
ENTRY. .REASON, #5 $ 
RO : 
4l 
8$ 3 
#MSG.02, -C SP) ; 
#1, -(5P) 
SP .RO ; SP, 
17 
PC, INT.GEN : 
RO 
3$ 
CCTLR,RO 3 
RO 


(8) 


rt ceteris eee ~~ 


ZRQAMS 
vo2.3 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


000000G 
000001 001254’ 
000001 001256’ 
001260’ 
2s: 
060000G 3$: 
000001 
000000G 
O00000V 
000040 
000001 
4$: 
000000G 
000006 5$: 
6$: 
7$: 
000000G 
000002 
000006 
000001 8$: 
9$: 
000000G 
000000G 
000001 001254’ 
000001 001256’ 
001260' 
10$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


C.ERR. TBLCRO) 
+s PT .MODE 


#1, MAIL .BOX. TESTNUM 
@MAIL .BOX. SUBTST 
55 

13 

EGD.11 

0 

11$ 

@MSG .03, (SP) 
#1,-CSP) 

SP ,RO 

17 

ee RO 

PC. INT .GEN 
BRLEVEL RO 
#40,RO 

41 

#1,R1 

7$ 

LSDLY,RO 

6$ 


41 

CCTLR,RO 

RO 

C.ERR. TBLCRO) 

#1,APT .MODE 

10$ 
#1,@MAIL .BOX. TESTNUM 
een enres 


14 
EGD.12 


VAX-11 Bliss-16 v4.1-582 
DISK SUSER2: [MLYNAR. 7RO}ZROAHO. BL2;3 


SP, 


*,$$TMP2 
*,$$TMP1L 


$$ TMP 
$$TMP1 


$$TMP2 


SEQ 0302 
age 
(8) 





-_——_— > ee ee — -_—- 2. 


SEQ 0303 
P 40 


ZRQAM3S RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 age 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [MLYNAR .ZRQ)ZRGAHO.BL2;3 (8) 
000312 000000G . WORD EMS .12 

000314 022626 11$: CMP (SP)+,(SP)-+ ; 2655 
pees Ly CLR RO $ 2574 
000320 726 12s: TST (SP )-« 

000322 012601 MOV (SP)+,R1 

000324 000207 RTS PC 

; Routine Size: 107 words, Routine Base: ‘sCODE$ + 2636 


+; Maximum stack depth per invocation: 7 words 


_ ee aelssteteststaeteeesistesenesmnsitiensinemmenmmememmmeeenecens- - 


ZRQAMS RD/RX EXERCISER 
vo2.3 INITIALIZATION TEST ROUTINES 
2657 GLOBAL routine INT_GEN = 
5659 
2660 ' THIS ROUTINE BEGINS AN RDORX mb SE a RE SEQUENCE 
2661 ¢ COMPLETES rare THE STEP 1 WRITE. ITS PURPOSE IS 
2662 ! INTERRUPT CAT THE COMPLET 
2663 ¢ He USER - erese 20 a Fg ADDRESS AND BUS REQUE 
2664 : A VALUE OF “TRUE” IS R 
2665 : AND “FALSE” OTHERWISE. THE INTERRUPT IS ‘pies BY A 
oes : IN THE “SA SAVE” WORD IN THE DEVICE'S OCT 
2668 ; 
2669 begin 
2670 
2671 locel 
2672 SA : word; 
2673 
2674 oT _ADDR [SA_SAVE]) = 


Y neex ycRCIP. RC br » ALL_ONES); 


: 1 
: 1 
$ 1 
$ 1 
8 1 
: 1 
: 1 
: 1 
; 1 
: 1 
: 1 
; 1 
3 2 
$ 2 
8 2 
5 2 
8 2 
8 2 
8 ra 
: 2676 2 DELAY C ): 
8 2677 2 BREAK 
’ 2678 2 INCR COUNT FROM 1 TO SOO DO 
: 2679 3 BEGIN 
$ 3 SA = .RDRX_ADDR (RCSA, RC_ALL); 
8 2681 53 IF (.SA i's S1_MASK) EQL SA_Si 
; 2682 3 THEN 
$ 2683 3 EXITLOOP; 
$ 2684 3 DELAY (1); 
3 2685 3 BREAK ; 
$ 2686 2 END; 
$ 2687 2 
8 2688 2 SA = CWR_RING tf 8) or (. = .VECTOR t -2) or SA_INT; 
3 foo 54 : WRT_RDRX CRCSA, Rc’ PALL: A); 
$ 
$ 2691 2 iner A... from 1 to 8000 do 
: 2692 3 pee. 
5 2693 3 DELAY (1); 
5 2694 3 
: 2695 3 if .OCT_ADDR [SA_SAVE] neq 0 
: 2696 3 then 
5 2697 3 return TRUE; 
$ 2698 3 
: 2699 3 BREAK; 
$ 2700 2 end; 
; 2701 2 
3 2702 2 return FALSE; 
: 2703 i end; 
000000 004137 000000G INT .GEN: : 
JSR R1, $SAVE3 
000004 024646 CMP -(SP), -CSP) 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


VAX-11 Bliss-16 V4.1-582 


T ONLY 
to CREATE AN RORX 
EION OF STEP 1) IN ORDER TO HELP VERIFY THE 
ST INTERRUPT LEVEL. 
ETURNED TO THE CALLER IF AN INTERRUPT OCCURS, 
NON-ZERO VALUE 


STORAGE FOR STEP 1 READ AND WRITE 


ZERO OUT SA SAVE WORD IN DCT 
nt oe IP TO START INIT SEQUENCE 


MMM 
!MAKE SURE WE GET INTO STEP 1 oe! 


‘BEFORE STEP 1 WRITE 


! STEP 1 READ 

!DID WE GET THE Si BIT? ee 
‘EXIT IF SO ZZZ 
: Z2ZZ 
: MMM 
; ZZZ 


STEP 1 WRITE VALUE 


! STEP 1 WRITE 


TOTAL DELAY COUNT OF 8,000 
IF SA WAS CHANGED 
INTERRUPT OCCURED 


IF INTERRUPT DID NOT OCCUR 


SBTTL INT.GEN INITIALIZATION TEST ROUTINES 


SEG 0504 
DISK $USER2: [ML YNAR .ZRQ)ZRGAHO.BL2;3 


41 
(9) 


S$ et ee me ee ee ee 


- ee em re | ne eee 


ZRQAM3 RD/RX EXERCISER 
vo2.3 INITIALIZATION TEST ROUTINES 


000002 

000016 012700 177777 
012701 000002 

013700 000000G 


| 000042 005066 000002 
| 005300 


000126 000002 
000132 

000134 001374 

000136 1 


000150 013700 001246’ 
006200 
010002 

000162 052702 111200 


000002 
012702 017500 
000001 


000212 0135700 000000G 
000002 


1%: 


2s: 


3$: 
4$: 
5%: 


6$: 


7$: 


B$: 
9$: 


10$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 
OCT. ADOR,RO 
2(R 


#-1,RO0 
ae a OR 


12$ 
OCT. ADOR ,RO 


VAX-11 Bliss-16 v4. 82 
DISK$USER2: (MLYNAR. FRAIZROAHO. BL2;3 


aN 
. ey 
«, $$TMP2 
«,$$TMPL 


$TMP 


$$TMP1 


$TMP2 


* , COUNT 
*,RC.REG 


“oon 


e 


+, 


* 


 $$TMP2 
$$TMP1 


$TMP 
$TMP1 


$TMP2 


COUNT 


*,SA 


*,SA 
SA,RC.REG 


RC .REG,« 


& 


» COUNT 


*«,$$TMPo 
2, $STMP1 


$TMP 
$TMP1 


$TMP2 


SEQ_ 0305 . 
age 
(9) 


2674 
2675 
2676 


2678 


2691 
269 


o 
re) 
a - Vl 


- ——<=ne —— 


ao RO/RX EXERCISER 10-Oct-1985 09:41:47 


INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 
000240 005760 000002 TST 2(RO) 
000244 001403 BEQ 16$ 
46 012700 000001 MOV #1,R0 
000252 000404 BR 17% 
000254 104422 163: TRAP 22 
000256 005302 DEC Re 
001351 BNE 11$% 
000262 CLR RO 
000264 022626 17$%: CMP (SP)+,(SP)-+ 
000266 000207 RTS PC 
; Routine Size: 92 words, Routine Base: ‘sCODE$ + 3164 


; Maximum stack depth per invocation: 8 words 


SEQ 0306 


VAX-11 Bliss-16 V $82 Page 4 

DISKSUSER2: CML YNAR: FROIZROAHO. BL2;3 (9) 
; 2697 
; COUNT 2691 
; 2669 
; 2657 


- ST LLL LCL EL LL LOE LIE ES CU mm mmm . ° 


SEQ 0307 
VAX-11 Bliss-16 v4.1- 


10-Oct-1985 09:41:47 1-582 Page 44 
DISK$USER2: [MLYNAR . ZRQ)ZROAHO.BL2; 3 (10) 


ZRQAM3 RO/RX EXERCISER 
10-Oct-1985 09:21:16 


vo2.3 INITIALIZATION TEST ROUTINES 
GLOBAL routine HMARD_INIT = 


THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED [0 
INITIALIZE AN RORX DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF 
THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER. 
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE. 
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED. 


EEE BB BATT Be Be Be 8 Od Gd Ud Od 8 dG Gd Gt EP PP PP PUP he be he pe pe ee pe 


begin 
locel 
IE_VEC : word; 
IE_VEC = .CURRENT_VECTOR ¢ -2; 


incr ATTEMPTS from 1 to INI_ATT do 
begin 


label 
STEP_1_READ, 
STEP_2_READ, 
STEP_3_READ, 
STEP_4_READ; 
WRT_RDRX CRCIP, RC_ALiL, ALL_ONES); 
¢ STEP 1 READ 


STEP = 1; 
STEP_1_READ: 
begin 
incr COUNT from 1 to 500 do 


nepi* 
DELAY (1); 
SA_REG = .RDRX_ADDOR [RCSA, RC_ALL]); 


HT at and Si1_MASK) eql SA_S1 
leave STEP_1_READ; 


BREAK; 
end; 


exitloop; 
end; 


STEP 1 WRITE 


IE -BIT-AND-VECTOR-ADDRESS/4 BYTE 


CUSED IN STEP 1 WRITE AND STEP 3 READ) 
GET VECTOR ADDR/4 CIE = 0) 


WRITE IP TO START INIT SEQUENCE 


TOTAL DELAY COUNT OF S500 FOR STEP 1 
READ SA 


! IF STEP 1 READ IS O.K. 


ne a NN 


ZRGAM3 RD/RX EXERCISER 

vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21: 
; 2757 3 SA_REG = (WR_RING ¢ 8) or .IE VEC; 

; 2758 3 WRT_RORX (RCSA, RC_ALL, .SA_REG); ! 
: 2759 3 : 

; 2760 3 ! STEP 2 READ 

: 2761 3 ' 

; 2762 3 STEP = .STEP + 1; 

; 2763 3 STEP_2 READ: 

: 2764 4 begin 

: 2765 4 

: 2766 4 incr COUNT from 1 to 10000 do 

$ 2767 5 in 

: 2768 5 DECAY (1); ' 
$ FAA 4 : SA_REG = .RDORX_ADDR [RCSA, RC_ALL); ‘ 
: 

$ 2771 6 if €.SA_REG and S2_MASK) eql (SA_S2 or WR_RING) ! 
3 2772 5 then 

: 2773 5 leave STEP_2_ READ; 

5 2774 5 

3 2775 5 BREAK; 

$ 2776 4 end; 

+ ore 4 1 

3 exitloop; 

: 2779 3 end; 

3 2780 3 

$ 2761 3 $ 

$ 2762 3 ' STEP 2 WRITE 

$ 2783 3 $ 

5 PLA a : WRT_RORX CRCSA, RC_ALL., .DOCT_ADOR [RR_BEG)); ‘ 
i . 

3 2786 3 ! STEP 3 READ 

$ 2787 3 ! 

3 2768 3 STEP = .STEP + 1; 

: Fh 44 ; STEP_3_READ: 

$ begin 

5 2791 4 

; 2792 4 incr COUNT from 1 to 10000 do 

’ 2793 5 gt 

F 2794 5S DELAY (1); ! 
$ ose ; SA_REG = .RDORX_ADDR [RCSA, RC_ALL]; : 
$ 

; 2797 6 if €.SA_REG and S3_MASK) eql (SA_S3 or .IE_VEC) ! 
: 27968 5 then 

: 2799 5 leave STEP_3_READ; 

: 2600 5 

; 2601 5 BREAK; 

: 2602 4 end; 

| S808 4 itl 

H ex Oop ; 

: 28605 3 end; 

’ 2806 3 

’ 2807 3 : 

: 2608 3 ' STEP 3 WRITE 

: 2609 3 ' 


=_ —_ —_ - - eee - 


SEQ 0308 
age 4 
(10 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 


16 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 3 


! STEP 1 WRITE VALUE 


STEP 1 WRITE 


TOTAL DELAY COUNT OF 10,000 FOR STEP 2 
READ SA 


IF STEP 2 READ IS O.K. 


RINGBASE-LO, PI = O 


TOTAL DELAY COUNT OF 10,000 FOR STEP 3 READ 
READ SA 


IF STEP 3 READ IS O.K. 


5 
) 


V——_—_—— ee ee ee ee eee ee | 


——— 


- “ ee ee eee 


ee NR ee 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


, WRT_RORX (RCSA, RC_ALL, 0); 
' STEP 4 READ 
4 
STEP = .STEP + 1; 
STEP_4_READ: 
begin 
incr COUNT from 1 to 10000 do 


DEPaY Y (1); 
SA_REG = .RORX_ADDR (RCSA, RC_ALL]; 


Se and S4_MASK) eql SA_S4 
leave STEP_4 READ; 
BREAK; 
end; 
exitloop; 
end; 
STEP 4 WRITE 
CREDIT_BAL = 
WRT _RDRX (RCSA: RC_ALL, 0); 
return SUCCESS; 
end; 


CREDIT BAL = 
C_ERR_TBL [. cei. C_ERR_HRD] = 


if .APT_MODE 
then 


in 
"MAIL _BOX_TESTNUM = 1; 
{MAIL “BOX_SUBTST = 0, 


ERROF (13, EGD_13, EMS_13); 
return FAILURE; 
end; 


@ 
KPVMVUNNUUUNNUNVNNUUWUUUUWU & & PUNUUMNUNUUIUIU & & & Wt Ut 


10-Oct-1985 09: 
10-Oct-1985 09: 


1: Pege 46 
1:16 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 3 (10) 


SEQ 0309 
47 VAX-11 Bliss-16 V4.1-562 


PP, RINGBASE-HI = 0 


TOTAL DELAY COUNT OF 10,000 FOR STEP 4 READ 
READ SA 


IF STEP 4 READ IS O.K. 


START WITH A ew BALANCE = 1 
BURST, LF, GO = 

SUCCESS EXIT POINT 

TRY AGAIN OR GIVE UP 


NO CREDIT BALANCE | 


.C_ERR_TBL [.CCTLR, C_ERR_HRD) + 1; 


: INIT SEQUENCE FAILED 
! ROUTINE HARD_INIT 


.SBTTL HARD.INIT INITIALIZATION TEST ROUTINES 


000000G HARD. INIT: : 
JSR 


000012 os 

1 ; 

001246’ MOV CURRENT . VECTOR ,R4 
006204 ASR R4 


; 2704 
; *, IE. VEC 27 

; IE. VEC 

; IE. VEC 


oo ee e+ oe 


SEQ 0310 








RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 v4.1-562 ege 47 
INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK $SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 (10) 
000002 MOV #2.R5 ; @, ATTEMPTS 2722 
177777 MOV #-1,R0 ; *,RC.REG 2731 
MOV RO, @RORX. ADDR ; RC.REG,« 
000001 000000G MOV #1,STEP ; 2735 
000764 MOV #764 ,.R2 ; *, COUNT 2739 
000001 1%: MOV @#1,R1 ; *#,$8TMP2 2741 
2s: BEQ 5$ 
000000G om + yaaa ; @, $$ TMP1 
000010 3$ CLR 10( SP) ; $$TMP 
DEC RO ; $STMP1 
BNE 3$ 
4%: DEC R1i ; $sTMP2 
BR 2s 
000000G 5$ MOV RDRX . ADDR , RO ; 
000002 MOV 2CRO), CSP) 3 *«,RC.REG 
000000G MOV (SP),SA.REG ; RC.REG,« 
MOV (SP),RO ; SA.REG,« 
C01777 BIC 1777,R0 
CMP RO, 4000 
BEQ 6$ : 
TRAP 22 
DEC ; COUNT 
BNE i$ 
BR 18% : 
000000G 6%: MOV R4,SA.REG ; IE. VEC,« 
111000 000000G BIS #111000,SA.REG 
MOV SA.REG,R1 ; *,RC.REG 
000000G MOV . ADDR ,RO 
000002 MOV R1,2CRO) ; RC.REG,« 
000000G INC STEP : 
genase MOV 23420 ,R2 ; *, COUNT 
1 7$%: MOV #1,Ri ; *,$8TMP2 
8s: BEQ 118 
000000G MOV LSOLY,.RO ; *, $$TMPi1 
BEQ 10% 
000010 9%: CLR 10( SP) ; $$TMP 
DEC RO ; $$TMPL 
BNE 9% 
103: DEC Ri ; $$TMP2 
BR 8s 
11% MOV ~ RORX.ADOR ,RO : 276 
000002 000002 i _. 2(RO),20SP) ; *,RC.REG 
000002 000000G =. sist CCUMOV SP) SA. REG ; RC.REG,« 
2 _ OV ; SA.REG,« 2771 
oe BIC __ 03400, 
010222 CMP RS, #10222 
BEG 12¢ me — ; 277 
TRAP ee 
DEC 4 —_._ 5_ COUNT 27 
BR 263  -_ 2723 
000000G 128: MOV DCT. ADDR .RO ; 27 


_—— a | 








SEQ 0311 


-—— 








RO/RX E ISER 10-Oct-1985 09:41:47 VAX-11 ehicr,t¢ AR trate ege 48 
INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR. ZRQAHO .BL2;3 (10) 
000004 MOV 4(RO).R1 : #,RC.REG 
000000G MOV 
000002 MOV : RC.REG,@ 
000000G INC 3 278686 
ate : IE. VEC, 2797 
933420 mG : ®.COUNT 2792 
000001 13%: MOV ; *@, 88TMP2 2794 
143%: 8E@ 
000000G — ; @, $$TMPi 
000010 15%: CLR ; $STMP 
DEC ; $STHPL | 
ONE 
16%: DEC ; $$TMP2 | 
000000G 17% nov 27 
: H 
000002 000004 MOV ; *,RC.REG 1 
C00004 000000G MOV ; RC.REG,« 
000004 MOV ; SA.REG,« 279 
003400 BIC 
CMP 
BEQ : 
TRAP 
DEC ; COUNT 
BNE 
18%: BR ; 
90000s. ane ; 
Soesane INC ; 
ps bos 44 MOV ; #, COUNT 
1 20%: MOV ; #,$$TMP2 
21%: BEQ 
000000G oen ; *, $$TMPl1 
000010 228: CLR ; $sTMP 
DEC ; SsTMPL 
BNE 
23%: DEC ; $sTMP2 
BR 
24s: MOV ; 
000006 MOV : aeRt REG 
000000G MOV ; . 2 
goeees MOV ; SA.REG,« 
00377 BIC 
040000 CMP 
BEQ : 
TRAP 
OEC ; COUNT 
BNE 
BR ; 
000001 000000G ess: MOV : 
CLR ; RC.REG 








— =— oo eae a eee ee ee 


| 000646 000207 


; Routine Size: 
+ Maximum stack 


—— oo LE LE A Rt 


RO/RX 


EXERCISER 
INITIALIZATION TEST ROUTINES 


000000G 
000002 


000001 


000012 


212 words ’ 
depth per invocation: 


26%: 


e7$: 


28s: 


Routine Base: 
13 words 


RTS 


$SCODE$ + 


10-Oct-1985 09:41:47 


10-Oct-1985 


RORX . ADDR , RO 
2(RO) 

#1,R0 

28 


5 
CREOIT.BAL 
ce TL © 


RO 
C.ERR. TBLCRO) 
#1,APT.MODE 


27$ 
#1,@9MAIL .BOX. TESTNUM 
-* aataiamasititataaiatl 


15 
EGD.13 
EMS .13 
RO 
#12,SP 
PC 


3454 


09:2:: 


16 


SEQ = 


VAX-11 Bliss-16 Vv4.1-5 
DISK $SUSER2: [ML YNAR. FRAIZROAHO. BL2;3 


49 
O10) 


2723 


ROD 88 8 8 8 8 8 EP POPU PO PD POD DD ee ee ee ee pe pe pe ee 


013703 


RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


GLOBAL routine INI_RRING : novelue = 


THIS ROUTINE IS RESPONSIBLE FOR ALLOCATING ENOUGH MSCP PACKETS TO 
FILL AN RDRX RESPONSE RING. THE BUFFER DESCRIPTOR OF EACH PACKET 


‘oes IN FRONT OF THE PACKET ITSELF) IS LOADED INTO SUCCESSIVE 


ING SLOTS. NOTE THAT THE BUFFER DESCRIPTORS HAVE BEEN INITIALIZED 
WITH THE FLAG AND OWNERSHIP BITS SET TO “1”, MAKING EACH SLOT 
CONTROLLER -OWNED. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT 


RRING_ADDR = .DCT_ADDR [RR_BEG); ! FIRST RESPONSE RING SLOT 
incr COUNT from 1 to RRING_LEN do 


end; 


in 
index = GET_PKT (.CCTLR) GET AN MSCP PACKET 
-RRING_ADDR™= .MSCP_PKT f.index, PKT LO); LOAD LO-ORDER BUFF DESC INTO SLOT 
RRING_ADDR = .RRING_ADOR + 2; ADVANCE TO SECOND WORD 
.RRING_ADDR = .MSCP_PKT [.index, PKT_HI]; LOAD HI-ORDER BUFF DESC INTO SLOT 
PKT_USE [.index] =  CCTLR; * PACKET IN USE 
-RRING_ADOR = ..RRING_ADDR or ED_OWN or ED_FLAG;! GIVE OWNERSHIP TO CONTRLLER 
RRING_ADOR = .RRING_ADDR + 2; * ADVANCE TO NEXT SLOT 
enc; 


.SBT’. INI.RRING INITIALIZATION TEST ROUTINES 
ne 


R1, $SAVE4 ; 
MOV OCT. oR ‘ 
MOV 4(RO),R1 ; *,RRING.ADDR 
MOV CCTLR.R3S ; 
MOV 04 ,R4 ; *, COUNT 
JSR PC.GET.PKT 
MOV RO,R2 ; *, INDEX 
MOV R2,(SP) ; INDEX,« 
MOV #106, -(SP) 
JSR PC, BL $MUL 
MOV MSCP .PKT(RO),CR1)+ ; #,RRING.ADDR 
MOV MSCP .PKT+2(RO),(R1) ; #,RRING.ADOR 
MOV CCTLR,R3S 3 


VAX-11 Bliss-16 V4.1-582 
DISK SUSER2: [ML YNAR . ZRQ)ZROAHO BL2; 3 


SEQ 0313 
Page 
(11) 


SO 


SEQ 0314 


ZRQAMS RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Page 51 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 (11) 
000062 110362 000000G MOvVB R3,PKT .USE(R2) ; #,*C INDEX) 

000066 052721 140000 BIS #140000,(R1)-+ ; *,RRING. ADDR 2834 
000072 022626 cmp (SP)+,(SP)- ; 2878 
000074 005304 DEC R4 ; COUNT 2877 
000076 001352 BNE 1$ 

000100 000207 RTS PC ; 2854 
: Routine Size: 33 words, Routine Base: ‘sCODE$ + 4324 


; Maximum stack depth per invocation: 8 words 


— - — a LLL EE eee ee EEE eee a 


WWM UUUWUWWWU PPUUUUUNUNUNVNVNNNVNNNNNNNNNNNN Hee ee pee eee 


RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 
10-Oct-1965 09:21:16 DISK $USER2: [ML YNAR . ZRQ)ZRQAHO.BL2;3 


INITIALIZATION TEST ROUTINES 
GLOBAL routine SET_CTLR_CHAR = 


aa 


THIS ROUTINE IS CALLED BY CTLR_INIT AFTER THE RDRX HAS BEEN HARD- 
INITIALIZED. ITS PURPOSE IS TO FORMAT AND SEND THE “SET CONTROLLER 
CHARACTERISTICS” COMMAND, AND TO VALIDATE THE RESPONSE (END MESSAGE). 


IMPLICIT INPUTS: 
CCTLk - CURRENT CONTROLLER NUMBER 


begin 


locel 
P_INDEX : word; 


! MISCELLANEOUS INITIALIZATION 1222 
QIO {.CCTLR) = ‘INIT NO OF OUTSTANDING QIOS 12722 
CST aSCTLR U chr} 2 ‘CLEAR UNITS IN CST TABLE 'Z2Z 
INCR T FROM 0 To CRE _CNT - 1) DO ‘INIT RETURN PACKET POOL 1272Z 

APU WSE L [.COUNT) = -i; 222 


IO0Q_IN = IODQ_OUT = 0; ‘INIT I/0 DONE QUEVE POINTERS 1222 


INDEX : (SET PKT (.CCTLR); * GET AN MSCP PACKET 
a P_INDEX, MSGLEN) = SZ_SCC; ' PACKET SIZE 
MECP-PKT | *B-TNeR OPCODE)} = OP_SCC; ' OPCODE = SET CTLR CHAR 
MSCP_PKT [.P_INDEX, C_FLAGS] = CF "ASK ; ' CONTROLLER FLAGS 
MSCP_PKT [.P_INDEX, CMD_TYPE) = IMM_CMD; ' IMMEDIATE COMMAND 
if SEND (.P_INDEX) eql FAILURE ' ATTEMPT SEND 
then 


bogie : IF SEND WAS UNSUCCESSFUL 
C_ERR_TBL [.CCTLR, C_ERR_HRD) = .C_ERR_TBL [.CCTLR, C_ERR_HRD] + 1; 


if .APT_MODE 
then 


Pani _BOX_TESTNUM = 1; 
og _BOX_SUBTST = 0; 


ERRDF (20, EGD_20, 0); ' FATAL ERROR 
PUT_PKT (.P_INDEX); ' RETURN PACKET TO POOL 
DROP CTLR (.CCTLR, DU_CFATAL); ' DROP CONTROLLER 
— FAILURE; 

en 


else 
begin ! IF SEND WAS SUCCESSFUL 


SEQ = 


tee a cena _— 


ZRQAMS 
vo2.3 


PUVANAAAAA SANNA ANMNN DOANE US SPU aS SPSWUWWUNEWeaDeaDa DEED ws 


RO/RX EXERCISER 
INITJALIZAT™w! TEST ROUTINES 


ao 
4 “INDX’ = OUT_IODQ@ (); 
P_ADOR = RETPKT «+ (. RP _INDX *# RP_LEN # 2); 
2 -RP_ADDR [MF.STYP] neq MT_SEQ 
en 
PUT_RETPK’ (.RP_INDX); 
end 
until €.RP a eee eql CID_DRIVER) - 
CC.R (MESTYP] eql MT_SEQ) an 
CC. RB ADD .ADDR [ENDCOD) and OP_END) raat OP_END)); 


if .RP_ADDOR [CONI?} esl CID_DRIVER 
then 


begin 
PRINTF (DBM23); 
PUT_RETPKT (C. ap _INDX); 


10-Oct-1985 09:41: 
10-Oct-1985 09:21: 


SEQ 0316 
47 VAX-11 Bliss-16 V4.1-582 Page 
16 DISK $SUSER2: [ML YNAR. 7RO)ZROAHO. BL2;3 (12) 


WAIT FOR RETPKT RESPONSE 

GET INDEX OF RETPKT 

CALCULATE RETPKT ADDRESS 

RETURN ALL RETPKTS NOT SENT BY CONTROLLER 


IF RETPKT IS FROM “ORIVER” 


“ERROR IN SET_CTLR_CHAR” 
RELEASE RETURN PACKET 
DROP CONTROLLER 


ELSE - RETPKT IS FROM DISK MSCP 


IF WRONG ENDCODE 
OR FLAGS IN ERROR 


DR_ERR (); 
return FAILURE; 
end 
else 

begin 
if €.RP_ADDR [ENDCOD) neq (OP_SCC or OP_END)) or 

(C.RP_ADDR (C_FLGS)] and CF MASK) neq CF_MASK) 
then 

! 

Cen. TEL {.CCTLR, C_ERR_HRD) = .C_ERR_TBL {.CCTLR, C_ERR_HRD] + 1; 

if .APT_MODE 

then 


wnt. eox_ TESTU 1; 
"MAILBOX ~SUBTST = 0; 
end; 


ERRDF $23. EGD_ 21, EMS_21); 
DROP_CTL C CCTLR. DU_CFATAL); 
PUT PRETPRT. CR P_INDX ); 
return FAILURE; 
end 

else 


begin 
CMB. TIME = .RP_ADDR [C_TIME] «# 2; 


'Z22ZZ if BIT_TST (SWP_FLAGS, SWF_TRC) 
'ZZZ then 
!ZZZ PRINTF (OBM25, .RP_ADDR [C_TIME]); 


end; 


FATAL ERROR 
DROP CONTROLLER 
RELEASE RETURN PACKET 


RETPKT HAS CORRECT ENDCODE 


RETPKT HAS CORRECT ENDCODE 


SEQ 0317 
VAX-11 Bliss-16 V4. a 


RO/RX EXERCISER 10-Oct-1985 09:41:47 582 54 
DISK SUSER2: [MLYNAR. TRO} ZROAHO. BL2;3 0912) 


ZRQAM3 


Ene 


vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 
; 2995 4 
, 2996 3 end; ! IF RETPKT WAS SENT BY DISK MSCP 
Py 
; 2998 3 PUT_RETPKT (. RP _INDX); 
: 2999 3 return SUCCE ESS ' IF SEND WAS SUCCESSFUL 
: 2 end; 
: 3001 2 
; 3002 1 end; ! ROUTINE SET_CTLR_CHAR 
.SBTTL SET.CTLR.CHAR INITIALIZATION TEST ROUTINES 
000000 010146 SET.CTLR.CHAR: : ) 
MOV R1,-C(SP) ; 2889 

000002 013701 0000006 MOV CCTLR.R1 ; 2908 
000006 105061 000000G CLRB @IOCRI) | 
000012 010146 MOV Ri, -(SP) ; 2909 
000014 012746 000126 MOV #126, -(SP) | 

73 JSR PC, BL $MUL 

C00005G CLRB CST+S(RO) 

000030 CLR RO ; COUNT 2910 
000032 112760 000377 000000G 1$: MOVB #$ 377,RP.USEC(RO) ; *#, (COUNT) 291 
000040 INC RO ; COUNT 291 
000042 020027 000007 CMP RO, 07 ; COUNT, « | 
000046 003771 BLE i$ | 
000050 005037 0000006 CLR I0DQ. OUT ; 291 
000054 005037 000000G CLR I0DQ. IN 
000060 010116 MOV R1,(SP) ; 291 
000062 737 0000006 JSR PC.GET.PKT 
000066 010001 MOV RO.R1 ; *,P. INDEX 
000070 01011 MOV Ri, (SP) ; P. INDEX, « 291 
000072 012746 000106 MOV #106, -(SP) 
000076 737 000000G JSR C.BL$MUL | 
000102 012760 000040 0000066 MOV oad. MSCP .P¥T+6(RO) 
000110 112760 000004 0000226 MOVB #$04,MSCP.PKT+22(RO) ; 291 
000116 012760 000120 0000306 MOV 120,MSCP. PKT + 30CRO) ; 291 
000124 1 0000046 CLRB #$MSCP.PKT+4(RO ; 29 
000130 010116 MOV R1, (SP) ; P INDEX, « 292 
000132 004737 000000G JSR PC, SE 
000136 005700 TST RO 
000140 001036 BNE 3$ 
000142 013700 000000G MOV CCTLR,RO ; 2925 
000146 006 ASL RO 
000150 1 0000006 INCB = C.. ERR. TBL(RO) 
000154 032737 000001 001254’ BIT $1, APT .MODE , 292 
000162 00140 BEQ 
000164 012777 000001 001256’ MOV #1, @MAIL .BOX. TESTNUM ; 29 
000172 005077 001260° CLR @MAIL .BOX.SUBTST : 2931 
000176 104455 2$: TRAP 3=—s«SS : 2934 
000200 00002 .WORD 24 
000202 “WORD  &GD.20 
000204 “WORD 0 
000206 010116 MOV R1,(SP) ; P. INDEX, « 2935 
000210 737 0000006 JSR PC. PUT. PKT 


_ 


SEQ 0318 
Page 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47. VAX-11 Bliss-16 v4.1-S82 55 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2:[MLYNAR.ZRQ)ZROAHO.L2;3 8155 
000214 013716 0000006 MOV CCTLR. (SP) , 2936 
000220 012746 000006 MOV 06, -( SP) 
000224 004737 000000G JSR PC ‘DROP.CTLR 
000230 005726 TST (SP). , 2924 
000232 CLR ; 3940 
000554 BR 12$ 
004737 0000006 3$: JSR PC, WAIT : 
000242 004737 000000G JSR PC‘ OUT. I0Da : 2945 
000246 010037 000000G MOV RO'RP. INDX 
010016 : MOV RO; (SP) ; RP. INDX,« 2946 
000254 012746 000054 MOV 054, -(SP) 
000260 004737 000000G JSR PC.BL$ . 
000264 062700 000000G ADD @RETPKT RO | 
000270 010037 000000G MOV RO. RP. ADDR | 
000274 132760 000360 000002 BITB #360, 3(RO) : 2948 
000302 001404 BEQ 
000304 013716 000000G MOV RP. INDX. (SP) : 2950 
000310 004737 000000G JSR PC PUT .RETPKT 
000314 005726 4s: TST (SP)- 294 
000316 013701 000000G MOV RP. ADDR.R1 595 
000322 005000 CLR 0 
000324 126127 000003 000003 CMPB 4 ss«3(R1), 03 
000332 001002 BNE S$ 
000334 005200 INC RO 
000336 000407 BR 6$ 
000340 132761 000360 000002 S$: BITB 360,2(R1) , 
000346 001333 BNE 33 
000350 105761 000014 TSTB  =-«14(R1) ; 
000354 100330 BPL 33 
000356 006000 6$: ROR RO , 
000360 103015 BCC 7$ 
000362 012716 000000G MOV @0BM23, (SP) 
000366 012746 000001 MOV 01, -(SP) 
000372 010600 MOV SP ‘RO ; SP. « 
000374 104417 TRAP ‘17 
000376 013716 0000006 MOV RP. INDX. (SP) . 
000402 004737 000000G JSR PC PUT .RETPKT 
004737 O00000V JSR PC’DR.ERR , 
000412 000447 BR 103 ‘ 
000414 126127 000014 000204 1$: CMPB —s-:« 141), 6204 : 
000422 001007 BNE 8$ 
000424 016100 000022 MOV 22(R1),RO 
000430 042700 177657 BIC 9177657 .RO 
000434 020027 000120 CMP RO, 0120 
000440 001437 BEQ 113 
000442 013700 0000006 8$: MOV CCTLR.RO ; 
000446 006300 ASL RO 
000450 105260 0000006 INCB  C.ERR.TBL(RO) 
000454 032737 000001 001254" BIT $1. APT .MODE . 
001405 BEQ 9$ 
000464 ©12777 000001 001256: MOV #1, @MAIL .BOX. TESTNUM ; 
000472 005077 001260° CLR @MAIL . BOX. SUBTST . 
000476 104455 9$: TRAP ss 55 ; 





—_-- 


005000 
012601 
000207 


: Routine Size: 
+ Meximum stack 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


000000G 
000006 
000000G 
000000G 
000000G 
000010 10$: 
000024 000000G 11$: 
000000G 
000900G 
000000G 
000001 
000006 12s: 
13$: 
14$: 
193 words, Routine Base: 


depth per invocation: 


7 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


At PUT .RETPKT 
10,5 


13$ 

oe OF CMD. TIME 
CMD. TIME 

RP. INDX, (SP) 
PC PUT .RETPKT 


$CODE$ + 4426 


VAX-11 Bliss-16 V4. 
DISK SUSER2: (MLYNAR. tRaIZROAHO. BL2;3 


= LLL Ss ls enn nents 


oun 0689 “ 
om 12) 


33 


M23 3 


3 


EE LL Stes sess me en ee ———— 





SEQ 0320 
Pp 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4. age 5 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. sea ZROAHO. BL2;3 (13) 
; 3003 1 routine UNIT_INIT : novelue = 
-— f wae 
i .¢ 
; 3006 1 ' THIS ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONFIGURED UNIT 
: 3007 1 ' (OISK) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED 
; 3008 1 ' INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN “ONLINE” 
; 3008 } MESSAGE, AND TO VERIFY THE RESPONSE. 
i * 
; 3011 1 ’ IMPLICIT INPUTS: 
l,s Boaz i ' CCTLR - CURRENT CONTROLLER NUMBER 
; 3013 1 : COISK - CURRENT DISK ADDRESS CRD/RX DISK NUMBER) 
1, g0a6 i ' L$LUN - CURRENT (DRS) UN R 
ls 3015 : CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
; 
: 3017 1 
; 3018 2 begin 
; 3019 2 local 
; 3020 2 MAXO_LBNS : WORD UNSIGNED, ' UNIT'S MAXIMUM LO WORD LBN 
, 3021 2 MAX1_LBNS : WORD UNSIGNED; ! UNIT’S MAXIMUM HI WORD LBN 
i 
; 3023 2 
; 3024 2 INDEX = GET_PKT (.CCTLR) ' GET AN MSCP PACKET 
; 3025 2 Scr PKT [.P_INDEX, MSGLEN] = SZ_ONL; ! PACKET SIZE 
:; 3026 2 MSCP -PKT [.P_INDEX, DK_NUM] = .COISK; ' SET DISK ADDRESS CRD/RX DISK NUMBER) 
; 3027 2 MSCP_PKT bed P pINDEX. OPZODE) = ; ' OPCODE FOR “ONLI 
; 3026 2 1222 naese PKT INDEX, DDPAR) = BITOO; ' SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES 
, 3029 2 MSCP_PKT [. z" f= CMD_TYPE) = SEQ_CMD; ! SEQUENTIAL COMMAND 
i 
; 3031 2 if SEND (.P_INDEX) eql FAILURE ! ATTEMPT TO SEND; IF CTLR IS OFFLINE 
; 3032 2 then 
F 3033 3 pegie 
, zo3e : T_ADOR [ERR_HRD_HST] = .T_ADDR [ERR_HRD_HST] + 1; 
; 
: 3036 3 if .APT_MODE 'Z2Z 
; 3037 3 then — 
: 3038 4 wanin 
; 3039 4 .MAIL_BOX_TESTNUM = 1; 
; 3040 4 -MAIL_BOX_SUBTST = .CST_ADDR [.CUOFF + OF _DATA, D_DISK_NUM]; 
: 3041 3 end; 
:; 3042 3 
: 3043 3 CST_ADDR [.CUOFF, D_FATAL] = TRUE; ! FATAL ERROR 
: 3044 3 ERROF (22, EGD_22, 5); : 
: 3045 3 DUR [ LSLUN = DU_ONLINE; ! SETUP REASON TO DROP UNIT 
: 3046 3 Boou. ent $LUN); ' DROP UNIT 
; 3047 3 PUT -PKT (.P_INDEX); ' RETURN PACKET TO POOL 
; 3048 3 end 
: 3049 2 else 
; 2030 : begin ! OTHERWISE (SEND WAS SUCCESSFUL ) 
i . . - 
: S52 3 do 
: 3053 4 be 
: 3054 4 WA r (); ! WAIT FOR RETPKT RESPONSE 
: 3055 4 RP_INDX = OUT_IODQ (); ! GET INDEX OF RETP 


— eee ee - 


SEQ 0321 
Pp 


ZRQAM3 RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 ege 58 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR .ZRQ)ZROAHO.BL2;3 (13) 
; 3036 4 RP_ADDOR = RETPKT + (.RP_INDX « RP_LEN *# 2); ! CALCULATE RETPKT ADDRESS 
i 
; 3058 ‘ if .RP_ADDR (MESTYP] neq MT_SEQ ! RETURN ALL RETPKTS NOT SENT BY CONTROLLER 
3 n 
: 3060 4 PUT_RETPKT (.RP_INDX); 
: 3061 4 
: 3062 4 end 
: 3063 3 until (.RP_ADDR [CONID) eal CIO ORIVER ) or 
; 3064 4 se RP ADDR a A ae eal MT_S 
; 3065 3 (.RP_ADDR [ENDCOD) and OB” SEND) —, C°_END)); 
i 3066 
4 3067 3 if .RP_ADDR [CONID) eql CID_DRIVER ! IF RETPKT IS FROM “DRIVER” 
| 3068 3 then 
3 3069 4 begin 
; 3070 4 PRINTF (OBM26); ! “ERROR IN UNIT_INIT” 
, 3071 4 DR_ERR (); ' DROP CONTROLLER 
: 3072 4 end 
| Ba 3 - 
; 
; 3075 4 if -RP_ADDR [ENDCOD) neq (OP_ONL or OP_END) ! IF RETPKT IS FROM DISK MSCP 
; 
8 3077 $ pega. 
; sore : (ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV) + 1; 
: 
; 3080 4 if .APT_MODE 'Z22Z 
: 3081 4 then 
: 3062 5 benie 
; 30863 5 .MAIL_BOX_TESTNUM = 1; 
; sees ; MATL ~BOX_SUBTST = .CST_ADDR [.CUOFF + OF _DATA, D_DISK_NUM); 
. 
i 3086 4 
; 3087 4 CST_ADOR [.CUOFF, D rare.) = TRUE ; 
; 30866 4 ERROF (23, EGD_23, EmMS_21); FATAL ERROR 
: 3089 4 DUR [.L$LUN] = DU ONLINE; ; SETUP REASON TO DROP UNIT 
; 3090 4 DODU (.L$LUN); ' DROP UNIT 
: 3091 4 end 
$ 3092 3 else 
; 3093 4 begin ! RETPKT HAS GOOD ENDCODE 
; 3094 4 ST_CODE = .RP_ADDR [STSCOD); * GET STATUS CODE 
; 3095 ‘ SB_CODE = .RP_ADOR [SUBCOD); ! GET SUB-CODE 
; 3096 
- 3097 4 CST_ADDR [.CUOFF + OF _NAME_O, D_NAME_O) = .RP_ADDR [NAME_0] + s0'100'; * UNIT NAME 
; 3098 4 CST_ADDR {.CUOFF + OF _NAME_O, D-NAME -1) = .RP_ADDR (NAME_1 ut} e * 16; 'ZZZ 
; 4 CST_ADDR [.CUOFF + OF_NAME_0, D_NAME_1]} = .CST_ADDR (- CudFF + OF _NAME_O, * _NAME_1) «+ 8222 
; 3100 4 -RP ADoR™ DOR {NAR 1_L0) + #0'160' 'ZZ2Z 
; 3101 4 CST_ADOR [.CUOFF + OF_NAME_2, D NAME 2] = .RP_ADDR [NAME_NUM] / 10 «+ so’ 60°; ¢ZZ2Z 
, 310¢ ‘ CST_ADOR [.CUOFF + OF __NAME_2, D_NAME_3] = (. a .ADDR [NAME_NUM] mod 10) + #0'60': '2772 
; 
: 3104 4 
: 3105 4 
; 3106 4 IF .CST_ADOR [.CUOFF + OF _NAME_O, D_NAME_1) EQL #0‘ 104: 'IF NAME IS _D '222 
; 3107 4 THEN '22Z 
; 3108 4 CST_ADDR [.CUOFF, D_TYPE] = FIXED ‘Its FIXED. '22Z 


—— ee ee eee 


Se ae 


_— ——— . ee 


= -—-— SS  —- — SE — 
- - — - - 


SEQ 0322 










ZRQAM3 RD/R* EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 V4.1-562 age 9 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 3 (13) 
3109 4 ELSE 'ZZ2Z 
atte : CST_ADDR [.CUOFF, D_TYPE] = REMOVABiE; ‘OTHERWISE REMOVABLE $ZZ2Z 
3il2 4 
3113 4 
3138 ‘ if -ST_CODE neq ST_SUC ! IF STATUS CODE IS NOT SUCCESSFUL 
3116 5 ag A 
site : CERR_HRD_ORV) = .T_ADDR [ERR_HRD_DORV) + 1; 
3119 5 if .APT_MODE !Z2Z 
3120 5 then 
3i21 6 “enie 
3i22 6 -MAIL_BOX_TESTNUM = 1; | 
3123 6 .MAIL_BOX_SUBTST = .CST_ADDR [.CUGFF + OF DATA, D_DISK_NUM]; ; 
3124 5 end; 
3125 5 
3126 5 CST_ADOR [.CUOFF, D_FATAL] = TRUE; 
3127 5 ERROF (15. EGD_ 15, EmMS_30); ! ONL INE FAILED | 
3126 5 DUR [.L$LUN) = DU" ONLINE ; ! SET UP REASON FOR DROPPING UNIT 
3129 5 — (. L$LUN); ' DROP UNIT 
3130 5 
3131 4 oes | 
sis ; begin ! SUCCESFUL OPERATION | 
3134 5 MAXO_LBNS = .RP_ADDR [SIZEO); ' LOAD LOWER WORD OF T 
$335 : MAX1_LBNS = .RP_ADDR [SIZE1i}; ! LOAD UPPER WORD OF UNET SITE 
3137 6 if €.MAXO_LBNS eql 0) ! THIS SUBTRACTS ONE FROM THE TOTAL 
see 2 on * eg wt tan _ AT O 
1 4 OUGH MUM 
3140 6 MAXO_LBNS = #0'177777' ; , 
3141 6 MAX1_LBNS = .MAX1_LBNS - 1; 
3142 6 end 
3143 5 else 
tees : MAXO_LBNS = .MAXO_LBNS - 1; 
IF 3146 _— if (€.CST_ADOR [.CUOFF + 2, D_BEG1) gtru .MAX1_LBNS) or ' THIS SECTION CHECKS TO SE 
5 
- Son (C.CST_ADOR [.CUOFF + 2, D_BEG1]) eaqlu .MAX1_LBNS) and ' IN SOFTWARE QUESTIONS WE 
; 6 (.CST_ADOR (.CUOFF + 1, O_BEGO) gtru (.MAXO_LBNS - 1))) ' DEVICE SPECIFIED 
; 6 ‘ note 1 less then max. or diagnosti 
¢ will error 
Het ; then a ! operator error 
: 3153 6 CS? ADOR .CUOFF + 2, p-eeah} = QO; 
; $154 6 CST_ADDOR [.CUOFF + 1, D_BEGO) = 0; ! change beginning lbn to 0 
: 3155 5 end; 
; 3156 5 
: 3157 5 f 
: size : (.CST_ADDR [.CUOFF + 4, D_END1) gtru .MAX1_LBNS) or 
’ 
: 3160 6 ((C.CST_ADOR [.CUOFF + 4, D 4h eqlu .MAX1_LBNS) and 
; 3161 6 (.CST_ADDR (.CUOFF + 3,°D ENDO) gtru .MAXO_CBNS)) 





z 


3161 


w 
eee ee ret 


Bbaw 


ptt dt bet 


De et ee bet ee ee ee 


= pepe pepe 


3833 


S Sl85E 


PUUNAAGU 


v uw 


. 
: 
: 
, 


!22Z 
!ZZZ 
!ZZZ 
!ZZZ 
!ZZZ 
!Z2Z 
!2ZZ 
!ZZZ 
!Z2Z 

ZZZ 

Z2ZZ 

ZZZ 

Z7Z 
!22Z 


RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bli 
INITIALIZATION rt aa 
begin in 
{.CUOFF « 4, Dera} = .MAX1_LBNS; 
CST_ADOR ADDR [.CUOFF + 3, D_ENDO) = .MAXO_LBNS; 


end; 
if (€.CST_ADDR [.CUOFF + OF _BEG1. D_BEG1) gtru 
-CST_ADDR (.CUOFF + OF_END1. D_END1)) or 


(C.CST_ADDR [.CUOFF + OF _BEG1., D_BEG1) eaqlu 
-CST_ADDR [.CUOFF + OF_END1, D_END1)) and 

(.CST_ADDR [.CUOFF + OF_BEG, D_BEGO) gtru 
-CST_ADOR [.CUOFF + OF_END, D_ENDO) )) 


then 
begin 
CST_ADDR [.CUOFF + OF _BEG1, D_BEG1) = 0; 
CST_ADOR [{.CUOFF + OF_BEG, D_BEGO) = 0; 


SEQ 0323 
582 Pp 


Li 4.1- ege 60 
10-Oct-1985 09:21:16 DISK$USER2 (ML YNAR. ZRQIZRGAHO .BL2;3 (13) 


! and ending lon to mex_lbn 


!MAKE SURE START ADDRESS 
!IS NO LARGER THAN END ADDRESS 


e 
‘IF IT IS, THEN 
! change beginning lbn to 0 


end; ' 

if (CC. aaet REASON eal RESTART) or ! if restert or 
C.ENTRY_REASON eql START)) and ! if continue 
(.CRN_LOW leq 8) and ! and 


(.CRN_HIGH eql 0)) ; 


first initialization 


! intialize block numbers 


in 

ast -LSLUN, LO_WRD ) = .CST_ADOR (.CUOFF + 1, D_BEGO); ! LOAD sequentiel LBN teble 

BST ([.L$LUN, HI_WRD) = .CST_ADDR [.CUOFF + 2. D_BEG1); ’ 

TRK_SGN [.LSLUNJ = i; ' POSITIVE TRACKING DIRECTI 

end; 

' THIS SECTION LOADS TYPE INTO CST TABLE 
!222 selectoneu .RP_ADDR [R_MODEL) of ! MODEL BYTE TELLS WHAT TYPE OF UNIT 
1222 * INDENTIFICATION BLOCK 
Hi _ 
gaz uo'¢'} : CST_ADOR [.CUOFF, D_TYPE) = RD_S1; ' RD 51 
1222 #0'7'}) : CST_ADOR [.CUOFF, D_TYPE] = Rx_50; ' RX SO 
tag #0'10'}) : CST_ADDOR [{.CUOFF, D_TYPE] = RD_5S2; ' RD S2 
iP 44 {otherwise] : BEGIN 
az ERRDF (25 .EGD_24 ,EMS_30); ! ERROR UNKNOWN DEVICE 
3 

333 tes; 





a 
! STATUS CODE IS 0.K. 


re ee ee 





SEQ 0324 


ZRQAM3 RO/AX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Blise-16 v4.1-S82 Pege 61 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR.ZRQ)ZRQAHO.BL2;3 (138) 
i 3215 5 then 
| Be TRG comm s0o,omv) = .1_s00n come so 
; 17 6 2 ([ERR_HRD ORV) = .T_ [ERR_HRD_DRV) + 1; 
9 6 if .APT_MODE 2722 
‘ 6 then 
t a. in 
t 7 : _BOX_TESTNUM = 1; 
4 7 -MAIL_BOX_SUBTST = .CST_ADDR [.CUOFF + OF DATA, D_DISK_NUM); | 
ls 4 ¢ end; 
i ] 
' a CST_ADOR [{.CUOFF, FATAL) = TRUE 
6 ERROF (16. EGD 16. Ems 30 ! WRITE-PROTECT CONFLICT 
' 6 DUR [.L$LUN) = DU_PROT rt ol ' SET REASON TO DROP UNIT 
; ‘29 «6 DODU ¢.LSLUN); T 
r : end 
6 aa, ES ! WRITE PROTECT SWITCH IS 0.K 
| 4 — — — 
; 6 CS? ADOR {.CUOFF, D_ STAT } = ONLINE; ' SET ONL L 
' 6 CST {.CCTLR, U_CNT) = .CST [.CCTLR. U_CNT) + 1; ' ADD UNIT TO CTRL TABLE 
' 5 Z end; 
i ; 
' ; ! IF RETPKT HAS CORRECT ENDCODE 
; 3 PUT_RETPKT (.RP_INDX); 
' 4 : end; ! IF SEND WAS SUCCESSFUL 
é 
‘ rt 1 end; ! ROUTINE UNIT-INIT 
.SBTTL UNIT.INIT INITIALIZATION TEST ROUTINES 
000000 004137 0000006 UNIT. INIT: 
JSR R1, $SSAVES : 300 
ous ra6 0000006 MoV At (SP) 
100C a3 000000G JSR GET. PKT . 
2000 1 ste 0000006 MOV RO.P_ INDEX em 
e ¢ 6.8 : , .* 
5006 06 MOV #106, -(SP) 
00084 O12746 000106. mov ids. (sp 
0¢ 9 0000066 MOV 044 ,MSCP ._PKT+6(RO) 
000¢ 7 000016G MOV CDISK ,MSCP .PKT~+16(RO) ; 
900050 i ooo 000022G MOVB O11 SCP PKT «+22(RO) : 302 
9006 bo oo LM —_ ve teen: my -4CRO) 3031 
0C 735 0000006 JSR PC.SEND ; 
00C TST RO 
00109 8 og NOY OT ADOR.RO 30 
0104 Sooost INCB-  SiCRO)’ ; 
i 0 000001 001254: eit #1. APT . MODE ‘ 30 
O17? 000001 001256 MOV #1, @MAIL .BOx. TESTNUM ; 303 





———_— ree ee ee 





mm eed 





see settee ne 


eee 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


001260 
177760 001260° 
000000G 1$: 


2s: 


000360 000002 


3$: 


000003 000003 
000360 000002 4$;: 


5$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


. ADOR , RO 
(RO), @MAIL . BOX. SUBTST 
177760, @MAIL .BOX. SUBTST 
CUOFF , RO 
RO 
CST. ADOR,RO 
#10000, (RO) 


26 
EGD.22 
0 


VAX-11 : 


oe @¢ e+ @F 


RP. INDX,¢@ 


SP ,@ 


.1-5862 
2: (ML NAR: ZRQ)ZROAHO .BL2;3 


SEQ 0325 
Page 62 
(13) 


3040 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


000000G 000004 
000014 000211 


000000G 
000050 
000001 001254° 
000001 001256’ 
000000G 


001260’ 
w00 000004 7$: 


oe og 8$: 


000012 
000036 
177740 
000100 


000036 
177776 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


CST. ADDR ,4( SP) 
BOCR2 >. Catt 


7$ 
#1,@MAIL .BOX. TESTNUM 
CUOFF RO 


CST. ADOR ,RO 

(RO), @MAIL .BOX.SUBTST 
#177760, @MAIL .BOX. SUBTST 
#10000, a4( SP ) 

55 

27 

EGD.23 

EMS.21 

L$LUN,RO 

Si" .DURCRO) 


27 

16CR2),S T .CODE 
2177740" ST. CODE 
aid RO 


SEQ 0326 


41. p 
‘2RQ)7ROAMO.6L2;3 


— ———— lesen —— 


63 
(13) 


3075 


g8 3 


: 


3099 


ZRQAMS 
vo2.3 


RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


000020 000010 10$: 
11$: 
000050 
000001 001254’ 
001256’ 
10 001260' 
177760 001260' 
010000 000010 12$: 


000000G 

000007 000000G 
007152’ 

000044 

000046 


13$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


#60 ,R4 
R4,15(R1) 
10R3), #104 
10$ 
#20,810( SP) 
11$ 

af) lt 


i2$ 

#1,@MAIL .BOX. TESTNUM 
910(SP), @MAIL .BOX.SUBTST 
0177760, @MAIL .BOX.SUBTST 
ee | 


L$LUN,RO 
oa? 


26% 
44(R2),R3 
46(R2),R4 
R3 


14$ 


-11 Bliss-16 v4.1-582 
DreksuSene. (ML YNAR. FROIZROAHO. BL2;3 


*,MAXO.LBNS 
*,MAX1.LBNS 
MAXO.LBNS 


SEQ 0327 
Page 64 
(13) 


3100 


3101 


3102 


012703 
304 


26061 
101410 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


177777 


000000G 


000000G 
000004 


000000G 
000010 


000002 000006 


14$: 
15$: 


16$: 


17$: 


18$: 


19$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RS 

CUOFF ,R1 

R1 
CST.ADOR,R1 
2(R1) 

CUOFF ,R1 

R1 
CST.ADDR,R1 


CRS), CRO) 


st 
CUOFF ,RO 


RO 
CST. ADDR ,RO 
CUOFF ,R1 


R1 
CST.ADOR,R 
2(RO), 6CR1) 


VAX-11 Bliss-16 v4. 
DISK SUSER2: [MLYNAR. SRaTZROAHO. BL2;3 


; *,MAXO.LBNS 
; MAX1.LBNS 


: 
; MAXO.LBNS 


¢,MAX1.LBNS 


MAXO.LBNS,*# 


*,MAX1.LBNS 


*,MAXO.LBNS 
MAX1.LBNS,+* 


MAXO.LBNS, # 


— So 6s 
oer 13) 


3148 
3149 





eee - 


ZRQAMS 
vo2.3 


RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 


20$: 


000002 21%: 


000000G 000010 22%: 


000022 23$: 


010000 000010 243: 


000010 25$: 


265: 
000000G 27$: 


000006 283: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


(RS) 


CUOFF ,R1 
R 


1 

CST.ADOR,R1 
2(R1) 
ENTRY .REASON, #2 
22$ 
ENTRY .REASON, #1 
23% 

CRN.LOW, #10 


23% 

CRN .HIGH 
23$ 
L$LUN,RO 
RO,R4 ; 


R4 
CUOFF ,R1 
R1 
CST.ADOR 


#1,@MAIL .BOX. TESTNUM 
@10(SP), aMAIL .BOXx. SUBTST 
#177760, MAIL .BOX.SUBTST 
— ,810(SP) 


L$LUN,RO 
{a , DURCRO) 


26$ 

%20000 ,810( SP ) 
CCTLR,(SP) 

#1 126, -(SP) 

PC ,6L $MUL 
CST+5(RO) 

(SP )-+ 

CSP )+,(SP)+ 

RP .INDX, (SP) 
——_o 


VAX-11 Bliss-16 v4.1-582 
DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 


SEQ 0329 
Page 66 
(13) 


3178 
3179 


3183 
3184 
3186 
3187 
3191 


. ee a ee eee 


_ —_ -_— —_— = Sess 


SEQ 0330 
ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 vV4.1-58 Page 67 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISKSUSER2: [MLYNAR. FRA} ZROAHO. BL2;3 oe is) 
001740 000207 RTS PC 
; Routine Size: 497 words, Routine Base: ‘sCODE$ + 5230 


; Maximum stack depth per invocation: 13 words 


_ — _— Eee —————— eee _—_— -- 


SEQ 0331 
p 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 age 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: (MLYNAR . ZRQ)ZROQAHO.BL2;3 (14) 
: 3243 1 GLOBAL routine DR_ERR : novalue = 
; 30s ts 
: !e 
' 3246 1 Hy THIS ROUTINE IS DESIGNED TO PROCESS RETURN PACKETS THAT ORIGINATE AT 
; 3247 i ' THE a RATHER THAN THE wet DRIVER -ORIGINATED gory INDICATE 
; 3246 1 ‘ EITHER A FATAL DEVICE ERROR OR A COMMAND TIMEOUT. SINCE THIS ROUTINE IS 
: 3249 i ! ONLY CALLED DURING THES INITIALIZATION TEST, IT TREATS A COMMAND TIMEOUT 

\ 8 ssay : : AS AN INITIALIZATION ERROR. 

j i . 
; 3252 1 ! IMPLICIT INPUTS: 

4 3253 i H RP_ADOR - ADDRESS OF A RETPKT THAT ORIGINATED AT THE “DRIVER” 
; 3254 1 ! (I.E., CONNECTION ID = CID_DRIVER) 
r 3255 1 !- 
' 3256 1 
‘ 3257 2 begin 
; 3258 2 
+s 3259 2 local ~ = 
$ sect : REASON : word initial (DU_TIME); ! ASSUME COMMAND TIMEOUT 
' 
| 3262 2 if .RP_ADDR (MESTYP]) eql MT_FATAL ! IF FATAL DEVICE ERROR 
; sees : then 
$ 264 
: 3265 2 — -CTLR (€.CCTLR, .REASON); ! DROP ALL UNITS ON CONTROLLER 
’ 3266 1 end; | 

-SBTTL OR.ERR INITIALIZATION TEST ROUTINES 

000000 010146 DR. ERR: : MOV Ri, -(SP) : 324 
000002 012701 000012 MOV #12,R1 ; *,REASON 325 
000006 013700 000000G MOV RP .ADDR,RO ; 
000012 116000 000002 MOVB 2CRO),RO 
000016 042700 177417 BIC #177417,RO 
000022 020027 000060 CMP + ‘tae 
000026 001006 BNE 
000030 013746 000000G MOV cere, -(SP) ; 326 
000034 010146 MOV Ri, -(SP) ; REASON, « 
000036 004737 000000G JSR PC,DROP.CTLR 
000042 022626 CMP (SP)+,(SP)+ 
000044 012601 1$: MOV (SP)+.R 1 : 3243 
000046 000207 RTS PC 
; Maximum stack depth per invocation: 4 wor 


+ Routine Size: 20 words, Rout ine Base: SCODES + 7172 
| 


~~ -_- - 


SEQ 0332 
ZRQAM3 RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 69 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1965 09:21:16 DISK $USER2: ([MLYNAR . ZRQ)ZRGAHO.BL2;3 (15) 


routine ACCESS : novelue = 


¢ 


THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT DISK 
CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AND 
SENDING ONE OR TWO MSCP ACCESS CUMMANDS TO THE DISK, AND CHECKING 
THE STATUS FIELD OF THE RESPONSE MESSAGE(S). 


2 Om © Oe Om Om Oe te te te ee 


$ 1 

: 1 

: 1 

: 1 

’ 1 

: 1 

1 

i 

; 3275 1 IMPLICIT INPUTS : 

: 3276 i CCTLR - CURRENT CONTROLLER NUMBER 

s marr 3 COISK - CURRENT DISK ADDRESS CROZRX DISK NUMBER) 

: 3278 1 L$LUN - CURRENT (ORS) UNIT NUMBER 

; 38279 1 - 

' 3260 i . 

; 3261 2 begin 

' 3262 2 

+s 3265 2 lees. é 

; 32864 2 RESULT : word initial (FAILURE), ! GUILTY UNTIL PROVEN INNOCENT 

; 3265 2 LBN s word, “ae 

, 3206 2 PASS : word initial (1); ! LOOP PASS COUNT 

: 

; 328686 2 ST_CODE = CODE = ! STATUS CODE AND SUB-CODE 

; 32869 2 '22Z LBN = eet. MAX ten’ (.L$LUN] + 1) ¢ -1) and #o'77777') - 1; 

; 3290 2 LBN = O; ‘TRY LBN O FIRST $ZZZ 
: 3291 2 

$ 3292 2 do 

; 3293 3 begin ' LOOP STARTS HERE 

:; 3294 3 NDEX = GET_PKT (.CCTLR) ' GET AN MSCP PACKET 

; 3295 3 SCP -PKT [.P_INDEX, DK_NUM] = .CDISK; ' SET DISK ADDR (RD/RX DISK NUMBER ) 
, 296 «3 MSCP_PKT [.P_INDEX, OPCODE) = OP_ACC; ' ACCESS OPCODE 

; 3297 3 MSCP_PKT [.P_INDEX, BC_LO) = S12; ! BYTE COUNT (1 BLOCK) 

; 3298 3 MSCP_PKT [.P_INDEX, LBN_ L .LBN; ' LOGICAL BLOCK R 

; 3239 : MSCP_PKT [.P_INDEX, CMD_T YPE} = NON SEQ_CMO; ! NON-SEQUENTIAL COMMAND 
‘ 

; 3301 3 if SEND (.P_INDEX) eal FAILURE ! ATTEMPT TO SEND; IF CTLR NOT ONLINE 
: 3302 3 then ‘ 

: 3303 4 pegis 

; 3304 4 PUT_PKT (.P_INDEX); ! RETURN PACKET TO POOL 

; 3305 4 PASS = 2; * NO MORE TRIES 

$ 3306 4 end 

8 3307 3 else 

; 3308 4 begin ! IF SEND WAS SUCCESSFUL 

$ 3309 4 

’ 3310 4 do 

: 3311 5 eosin 

; 3312 5S WAIT (); ! WAIT FOR RESPONSE 

; 3313 5 RP _INOX = OUT_IODQ (); * GET RETPKT (RESPONSE) INDEX 

, 3338 2 P_ADDR = RETPKT + (. RP _INDX « RP_LEN « 2); ' CALCULATE RETPKT ADDRESS 
+ 

, 3316 > if -RP -ADDR (MESTYP] neq MT_SEQ ! RETURN ALL RETPKTS NOT SENT BY CONTROLLER 
: 

: 3318 3 "PUT “RETPKT (..RP_INDX); y 

; 


o- ee -eees -eem eee OE, ES TEE + LT 


- — ee - i eEeEeee———— ee ee —_ — . 


SEQ 0333 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliess-16 V4.1-562 Page 70 
vo2.3 INITIALIZATION TEST ROUTINES 10-Oct-1985 09:21:16 DISKSUSER2: [MLYNAR. 7ROIZROAHO. BL2;3 wee 45) 
; 3320 5 
: 3321 4 wail t ( .RP_ADDR (cameo) eql CIO SREP e 
; 3322 5 (C.RP_ADOR [ TYP) eal MT_SE 
; 3323 : (C.RP_ADDR TENDCOO} and MOB _END) “= OP _END)); 
i 
; S353 bi .RP_ADOR [CONID) eql CID_DRIVER ! IF RETPKT CAME FROM “DRIVER” 
; 
: 3227 4 PASS = 2 ' NO MORE TRIES 
| 8 3326 4 lse 
i 8 3329 4 
¢ 3330 5 if .RP_ADOR [ENDCOD] neq (OP_ACC or OP_END) 
/ 8 3331 4 then 
1 4 3332 5 begin 
| $ 3333 5 PRINTF (DBM29); ! “RETPKT HAS BAD ENDCODE” 
; 3334 5 'Z2Z EMSCMD (); 
; 3335 5 end 
$ 3336 4 else 
: 3337 5 begin RETPKT HAS CORRECT ENDCODE 
$ 3338 5 ST_CODE = .RP_ADOR SuBcoD): GET STATUS CODE FROM PACKET 
; aH ; SB_CODE = .RP_ADOR [(SUBCOD GET SUB-CODE FROM PACKET 
; 
; 3341 5 if .ST_CODE eql ST_SUC ! IF STATUS CODE INDICATES SUCCESS 
: 3342 5 then 
$ 3343 6 nonin 
’ 3344 6 RESULT = SUCCESS; 
: 3345 6 PASS = 2; ! NO NEED TO TRY AGAIN 
: 3346 5 end; 
$ 3347 5S 
; sees end; ! IF RETPKT HAS CORRECT ENDCODE 
: 
$ 3350 4 PUT_RETPKT (.RP_INDX); 
: sse3 : end; ! IF SEND WAS SUCCESSFUL 
; 
$ 3353 3 LBN = .LBN «+ 100; 'TRY ANOTHER ONE *Z22Z 
; 3354 3 PASS = .PASS + 1; ' SECOND PASS 
: 3355 3 _end ! END OF PASS LOOP 
3 3356 2 until .PASS gequ 3; 
: 3357 2 
: 3358 2 if .RESULT eql FAILURE 
: 3359 2 then 
$ 3360 3 begin 
; 3361 3 T Roor (ERR_HRD_ORV) = .T_ADDR [ERR_HRD ew 
: 3362 3 CST_ADDR (.CUOFF, D_FATAL] = TRUE; | FATAL "ERROR 
; 3363 3 ERROF (17, EGD_17, EMS_30); ACCESS FAILED 
; 3364 3 DUR [.L$LUN]) = DU_ACCESS; ' SET REASON TO DROP UNIT 
: 3365 3 DODU (.L$LUN); ' DROP UNIT z 
’ see : end; ' IF ACCESS FAILED 
: 
: 3368 1 end; ' ROUTINE ACCESS 
. SBTTL ee > eaatataa lee TEST satin uis 


000000 004137 000000G ACCESS: JSR ial SA 3267?) 


SEG — 


RD/KX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Bliss-16 v4.1-S82 71 
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CLR R3 ; RESULT 3281 
000001 MOV @1,R2 ; *,PASS 
0000006 CLR SB. CODE ; 3288 
000000G CLR ST. CODE 

CLR R4 ; LBN 3290 
0000006 1s: MOV CCTLR -(SP) ; 3294 
0000006 JSR PC, GET. PK 
0000006 MOV RO|P INDEX 

MOV RO, (SP) ; P.INDEX,« 3295 
000106 MOV #106, -(SP) 

JSR PC, BL $MUL 

0000166 MOV COISK MSCP gPKTs16(RO) 

000920 0000226 MOVB 620, MSCP.PKT+22(RO) ; 3296 
001000 0000266 MOV #1000,M Gscp "PRT = 26(RO) ; 3297 
0000466 MOV R4,MSCP.PKT+46(RO3 ; LBN,« 3298 
000002 0000046 MOVB  2.MSCP_PKT+4(RO)~ ; 
0000006 MOV P. INDEX. (SP) ; 3301, 
0000006 JSR PC, SEND | 

TST RO | 

BNE a¢ 
0000006 MOV P INDEX. (SP) 3304) 
0000006 JSR PC, PUT .PKT 
000002 MOV a Re. ; *,PASS 

BR 9$ ; 330 
0000006 2%: JSR PC, WAIT ; 33 
0000006 JSR PC. OUT. I0Da ; 331 
0000006 MOV O.RP. INDX 

MOV RO, (SP) ; RP. INDX, « 331 
000054 MOV 054, -( 
0000006 JSR —s« PC, BL SMUL | 
0000006 ADD @RETPKT RO 
0000006 MOV RO.RP.ADOR . 
000360 000002 BITB $360, »2(RO) ; 331 
0000006 MOV RP . INDX, (SP) ; 331 
0000006 JSR PC, PUT .RETPKT 

3$: TST (SP) : 3311) 

0000006 Mov RP ADOR.R1 ; 3321 
000003 000003 CMPB0—ss«s«3(R21), 03 

BNE 4a$ 

INC 

BR S$ 
000360 000002 4s: BITB $360, 2(R1) : 332 
000014 TSTB =: 14(R1) : 3323 

BPL 23 

S$: ROR RO : 3 

BLO 7$ : 3327 
000014 000220 CHE 14(R1), 0220 ; 33 
0000006 MOV #0BM29, (SP) ; 333 
000001 MOV #1, -(SP) 


ee ee rr Lee oe — —_—— 


SEQ 0335 


ee ee 


Se ee oe 
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000304 01 MOV SP ,.RO ; SP,« 
000306 104417 TRAP 17 
000310 005726 TST (SP) ; 3332 
000312 000430 BR 83 ; 3330 
000314 116137 000016 9000006 63: MOVB 16(R1),ST.CODE , 3338 
000322 042737 177740 000000G BIC €177740,ST . CODE 
000330 016100 000016 MOV 16(R1),R ; 3339 
000334 006200 ASR RO 
000336 006200 ASR RO 
000340 006200 ASR RO 
000342 006200 ASR RO 
000344 006200 ASR RO 
000346 042700 174900 BIC @174000,RO 
000352 010037 000000G MOV .SB. CODE | 
000356 005737 000000G TST CODE ; 3341 
000362 001 BNE | 
000364 012703 000001 MOV @1,R3 ; *#,RESULT 3344 
000370 012702 000002 7$: MOV e2. R2 ; *,PASS 3345 
000374 013716 8s: MOV RP . INDX, (SP) ; 3350 
00473 JSR PC. PUT. RETPKT 
000404 062704 000144 93: ADD 0144,R4 ; *#,LBN 335 
000410 2 INC 2 ; PASS 3 
000412 CMP (SP)+,(SP)+ ; 329 
000414 7 000003 CMP R2,03 ; PASS,« 3356, 
000420 103601 BLO i$ 
000422 005703 TST R3 ; RESULT z 
000424 1025 BNE 10$ 
000426 013700 0000006 MOV T. ADDR ,RO ; 336 
000432 000050 INCB SO0C(RO 
000436 013700 000000G MOV FRO , 3 
000442 ASL 
000444 063700 0000006 ADD CST. ADOR,RO | 
000450 052710 010000 BIS #10000, (RO? 
000454 104455 TRAP 3=ss« 55 ; 336 
000456 i WORD 21 
000460 .WORD €EGD.17 
000462 -WORD €MS.30 
013700 0000006 MOV L$LUN,RO ; 3 
000470 112760 000010 0000006 MOVB $$ #10,0UR(RO) 
000476 104451 TRAP = S : 336 
10$: RTS PC ; 326 
+ Routine Size: 161 words, Routine Base: *sCODE$ + 7242 
+ Meximum steck depth per invocation: 10 words 


—— ————- ae 


SA lS 





SEQ oy 


VAX-11 Bliss-16 V4. 


1-562 
DISK $USER2: [ML YNAR . ZRQ)ZROQAHO.BL2; 3 


NE 
ERS AND PROCESSES 
TIMED IN 


ome 16) 


INIT MULTI-DRIVE TEST DATA 


a —_—- 


START OF EXECUTIVE LOOP 
FOR EACH CONTROLLER 
SET UP CURRENT CONTROLLER PARAMETERS 


NO INTERRUPTS WHEN EXAMINING SA 
NO INTERRUPTS WHEN EXAMINING SA Zz 


FAKE INTERRUPTING CONTROLLER'S NUMBER 
FAKE INTERRUPTING CONTROLLER'S CST ADOR 

FAKE INTERRUPTING CONTROLLER'S DCT ADOR 
FAKE INTERRUPTING CONTROLLER'S ADORESS 
CONTENTS OF THE SA REGISTER 


IF SA SHOWS AN ERROR 


! DECLARE FATAL ERROR 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 

vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 

; 3369 1 Sebttl ‘MULTI-DRIVE TEST ROUTINES’ 

t 3370 1 

s 3371 1 c 

r 3372 1 GLOBAL routine MULTI_DRIVE : novelue = 

r 3373 i 

i 3374 i 

5 3375 i Se 
4 3376 1 ' THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE 
4 3377 i ' A HOST-CONTROLLED EXERCISER DESIGNED TO GIVE THE 
, 3376 1 ' ICATION OF HOW OR SEVERAL RORX DRIVES WOULD PERFORM IN 
; 8 3379 4 : AN OPERATING SYSTEM ENVIRONMENT 

i 
|, 3381 i ‘ THIS ROUTINE ACTS AS AN “EXECUTIVE” TO THE WHOLE aOCESS. AFTER 

: 3362 1 ' INVOKIW" MD_INIT TO INITIALIZE MULTI-DRIVE TEST DATA. THIS ROUTI 

; 3383 1 ' ENTERS . LOOP WHICH ISSUES QI0se TO ALL ACTIVE CONTROLL 

s 35364 1 ' ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS 

: 3385 1 ' ORV TIMCHK WHICH IS INVOKED EVERY SECOND. NORMAL TERMINATION OF THIS 
|, 38 i ' OCCURS WHEN QI0s ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING 
3 3367 1 ' Gros HAVE COMPLETED. 

r 3366 1 t. 

‘ 33869 i 

339) 5 begi 

i in 

; 3392 2 

r 3393 2 lecel 

' 3394 2 CUR_PRIORITY : word; 

r 3395 2 

r 3396 2 lebel 

: 3397 2 SEND _COMMANDS ; 

‘ 3398 2 

i 3399 2 MDO_INIT (); ‘ 

s 3400 2 INIT. OCCURED = TRUE; ' 

' 3401 2 

. 

' 3403 : do begin : 

i 

r 3403 ; iner CTLR from 0 to (MAX_CTLR - 1) do : 

. mn 

; 3407 4 SET_CPAR (.CTLR); ’ 

s 3406 4 GETPRI (CUR “reel ' 

; 3409 4 !222Z SETPRI ( : 

4 3410 4 SETPRI (. BRLEVEL); ‘ 

; S411 4 ICTLR = .CCTLR; ’ 

, sate 4 ICST_ADOR = .CST_ADOR; : 

; 3413 4 IDCT_ADDR = .DCT_ADODR ' 

; gaia 4 TRORK ADDR =" TCST-ADOR [IP_ADDR); 

, 3333 ‘ IOCT_ Apr’ (SA_SAVE] = .IRDRX_ADOR (RCSA, RC_ALL); ' 

i 

' 3an$ 5 if BIT_TST CIOCT_ADOR [SA_SAVE], SA_ERR) ’ 

1 3s § _— begin 

t 

: 3420 5 FATAL_E (); 

; 3421 § SETPREY C CUR “ PRIORITY); 


! LOWER PRIORITY 


-— +-~-- a Te —_—— ~— 


Va 


SEQ 0337 
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@xitloop;: ' QUIT 
end 


8 


sicsceabeceses ts 
UGA ID NMNNNPPAPPPAAAPUSPUUUUFASUSSAAUUUUVOUUUA BddD auuu 
3 
ad 


33 


else 
SETPRI (.CUR_PRIORITY); ! IF NO ERROR, CONTINUE 


if Q@IO_OK () : IF O.K. TO ISSUE Q@IOCS) TO CONTROLLER 


Ps 
SVAU 


44 
34 SEND _COMMANDS : 
mn 
34 or8 GEN (); ! GENERATE 1 OR 2 QIOs 
i? (.MxXi ges 0) and ! IF SUCCESS ON FIRST QIO 
5 (not . _FLAG) 
sa36 if SEND (.MX1) eal SUCCESS ! ATTEMPT TO SEND IT. IF SUCCESS 
3440 BEGIN 'ZZZ 
3 Q@IG (.CTLR) = .Q@I10 [{.CTLR) + 1; a OUTSTANDING QIO COUNT 222 
else 
s in 
_PKT (.MX1); ! RETURN PACKET TO POOL 


leave SEND_COMMANDS; 
end; 


if ¢.MXxX2 pes 0) and * IF SUCCESS ON SECOND Q@I0 
OP _ 
begin 


BRE 4K - ~$ WAIT TILL 1 MORE SLOT AVAILABLE IN CRING 
until €.0CT_ADDR (CRING_CNT) lssu CRING_LEN); ! 


if SEND (.MX2) eal SUCCESS ! ATTEMPT TO SEND IT. 
BEGIN !Z7ZZ 

Q@IO (.CTLR) = .Q@IO (.CTLAR) «+ 1; m4 SUCCESS. INCR OUTSTANDING @IO COUNT 
else 


in 
PRENTF (06121. .CRN_HIGH. .CRN_LOW): 
COMPARE DATA = FALSE; ' NO SENSE IN COMPARING WRITE DATA 
PUT_PKT ( .MX2); ' RETURN PACKET TO POOL 
end; 


~~~ 
wunyro 


end; 





oe 
a 





eee. a ee - i; —S 


ee el 


SEQ 0338 


o* °R Ge Ge GP GD we ee we oe we oe ae os we oe oe 
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3475 4 end; ! O.K. TO ISSUE QI0(S) 

3476 3 end; ! CONTROLLER LOOP 

3477 3 

3478 3 

3479 3 BREAK; ! LET SUPERVISOR CATCH USER REQUESTS 

3480 3 PROC _RETPKT (); ! PROCESS ANY RETURN PACKETS 

3482 3 end ! EXECUTIVE PROCESSING LOOP 

3483 3 until (Cnet Q@I0_OUT ()) or 

3484 4 (€.DCT_ADOR [CRING_CNT) eql 0) and 

3485 2 (EOP “FLAG))); 

3486 2 

3487 2 

3488 ; OCT_ADDR [IG_INT) =< TRUE; ! NO FURTHER INTERRUPTS ON THIS CONTROLLER 

3490 2 

3491 1 end; ' EXERCISER 

| .SBTTL MULTI.DRIVE MULTI-ORIVE TEST ROUTINES 
000000 004137 0000006 MULTI.DRIVE: : 

| JSR R1, $SAVE3 3372 
000004 005746 TST -(§P) 

' 900006 004737 0c00000V JSR PC,MD. INIT 3399 
000012 112737 000001 0000006 MOVB #1.INIT.OCCURED 3400 
000020 005001 1$: CLR R1 ; CTLR 3405 

| 000022 010146 2s: MOV R1,-(SP) ; CTLR,« 3407 

| 900026 004737 0000006 JSR PC: SET.CPAR | 

000030 104440 TRAP = «40 ; 3408 
000032 010003 MOV RO,R3 ; *, CUR. PRIORITY 
000034 013700 0000006 MOV BRLEVEL ,RO ; 3410 

900040 104441 TRAP ss 
000042 013737 0000006 000104: MOV CCTLR,ICTLP 3411 

- 900050 013737 000000G 000076’ MOV CST. ADDR, ICST. ADDR ; 3412 
000056 013737 000000G 000100’ MOV DCT. ADDR. 70CT. ADDR ; 3413 

000064 017737 000076’ 000000G MOV @ICST.ADOR, IRDRX . ADDR ; 3414 

| 000072 013700 000100’ MOV IOCT.ADOR ; 3415 
000076 013702 000000G MOV IRDRX. ADDR, R2 
000102 016266 000002 000002 MOV 2(R2),2(SP) ; *,RC.REG 
000110 016660 000002 000002 MOV 2(SP),2(RO) ; RC.REG.« 

000116 016600 2 2(SP).RO : 3417 

000122 042700 077777 BIC £77777, RO 

000126 020027 CMP RO, #- 100000 

0001 1006 BNE 3$ 
000134 004737 000000V JSR PC FATAL .ERROR : 3420 

000140 010300 MOV ‘ ; CUR.PRIORITY,« 3421 

000142 1 1 TRAP = 4 

000144 005726 TST (SP). 3419 
000146 000511 BR 3 
000150 010300 3$: MOV 23,RO ; CUR.PRIORITY,« 3426 

| 000152 104441 TRAP ss «4, 

000154 004737 000000V JSR PC, QI0.0K , 3428 
000160 ROR 


RD/RX EXERCISER 
MULTI-DORIVE TEST ROUTINES 


000000V 
000110: 


000001 000000G 


000110’ 4$: 
000000G 


000112’ S$: 


6$: 


000000G 7$: 


9$: 


000001 000000G 
007764 ' 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 
8$ 
PC ,QI0.GEN 
MX1,RO0 
S$ 
#1,E0P.FLAG 
S$ 
RO,( SP) 
PC .SEND 
RO,@1 
43 
QIOCRi) 
S$ 
MxX1,(SP) 
PC PUT .PKT 
8$ 
MX2 
8$ 
#1,E0P .FLAG 
8$ 


22 

ayes Aen. 68 
MX2,(SP) 
PC,SEND 

RO, #1 

7$ 

QIOCR1) 

8$ 

ag + leg Be 


#6.S 
(SP )-+ 


INC Ri 
-WORD CLV!CLC 


2$ 

22 

PC,PROC .RETPKT 
PC,Q@1I0.0UT 

RO 

10% 

om 
#1,E0P.FLAG 
10$ 

1$ 


SEQ 0339 
6 


VAX-11 Bliss-16 v4.1-582 Page 
DISKSUSER2: [ML YNAR. FRO TZROAHO. 8.2;3 (16) 
; 3432 
3 3434 
| 5435 
| 3433 
; «(CTLR) 3441 
; 3438 
; 3446 
; 3445 
; 3451 
; 3452 
: 3456 
; 3458 
; 3460 
; #«(CTLR) 3463 
; 3468. 
3 SP.« 

; 3469 
; 3470 
$ Sane 
; CTLR 3405) 
; 3476) 
; 3480. 
; 3483 
, 3484 
3485, 


SEQ 0340 
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000432 052777 040000 000000G 10%: BIS #40000 ,aDCT . ADDR : 3488 
000440 005726 TST (SP). : 3372 
000442 000207 RTS PC 

; Routine Size: 146 words, Routine Base: %sCODE$ + 7744 


; Maximum stack deptr per invocation: 11 words 


; 3492 i 


NN, ee 


ZRQAM3 
vo2.3 


; 
: 
; 
‘ 
; 
: 
‘ 
' 
‘ 
‘ 
; 
; 
; 
‘ 
5 
$ 
; 
' 
$ 3511 
’ 
; 
‘ 
$ 
§ 
; 
; 
: 
‘ 
‘ 
$ 
‘ 
$ 
: 
' 
r 
: 


HPVMUNUUS SS SUlUUWUNVUNUNMVNNNVNNNNYNNe eee ee 


004137 
132737 
001002 


004 
012701 
010116 


SEQ 0341 
P 
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GLOBAL routine ML_INIT : novalue = 
Se 
' THIS ROUTINE IS CALLED BY ROUTINE MULTI_DRIVE TO INITIALIZE DATA ITEMS 
: USED BY THE MULTI-DRIVE TEST. 
begin 
1'Z2Z local 
'!Z7Z7Z AVG_XFER_SIZE : word. ' SIZE (BYTES) OF AN AVERAGE I/0 xFER 
!#ZZZ QUICK_PASS_CNT : word; ! AVG NO. OF I/O OPERATIONS IN A A QUICK PASS 
if not .INIT_OCCURED ! IF THIS IS A START 
INIT_IO_BUFF (); ! PARTITION FREE MEMORY INTO I/O BUFFERS 
f (. ENTRY_REASON neq CONT) and ' IF START, RESTART, OR PWR FAIL 
( .ENTRY_REASON neq NEW_PASS) 


then 


iner ie from 0 to (MAX_CTLR - 1) do 


END; 
INCR COUNT FROM O TO (QIO_PER_CTLR * MAX =CTLR - 1) 00 


se? 'c CPAR (.CTLR); 
INCR DISK FROM (O + 
+ OF _ 


UN) BY UNIT_SIZE DO 


BEGIN 

SET_UPAR (.D 
OPST [ 
END ; 


BUFF _OWN [ .COUNT] 


ND ; 
000000G MD.INIT: 
000001 000000G 
000000V 
000000G 000003 i$: 
000000G 000005 
2s: 

000000G 

, 3$ 


SK); 
C-LELUN] e bP _CNT; 


OF _UN) TO (3 * UNIT_SIZE 
'ZZZ 
'ZZZ 
§ZZZ 
‘INIT DATA PTRN SEQ TABLEZZZ 
'ZZZ 
'ZZZ 
! INIT 'ZZZ 
= -1; T/O BUFF ALLOC TABLE 'ZZZ 
tEND MD_INIT 'ZZZ 
-SBTTL MD.INIT MULTI-DRIVE TEST ROUTINES 
JSR R1, $SAVE2 3 
BITB #1, INIT .OCCURED ; 
BNE i$ 
JSR PC,INIT.I0.BUFF : 
ne ENTRY. REASON, #3 : 
C ENTRY. REASON, #5 : 
BEQ 
CLR ; CTLR 
MOV -(SP) ; CTLR,« 
JSR pe: SET.CPAR 
MOV #3,R1 ; #,O0ISK 
MOV R1,(SP) ; DISK,« 


!ZZZ 


A LLL SSS cS NNT —— 


tt 


—————— eee 


SEQ 0342 
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000056 004737 000000G JSR PC,SET.UPAR 

000062 013700 000000G MOV L$LUN,RO ; 3522 
112760 000025 000050’ MOVB 625, DPST(RO) 

000074 062701 000012 ADD #12,R1 ; *#,0ISK 3518 

000100 020127 000041 CMP R1,$41 ; DISK,« 

000104 003763 BLE 3$ 

000106 005726 TST (SP )- : 3515 

000110 005202 INC R2 ; CTLR 3514 

000112 000243 .WORD CLV!CLC 

000114 003752 BLE 2% 

' 900116 005000 4s: CLR RO ; COUNT 3526 
000120 112760 000377 000000G S$: MOVB #377, BUFF .OWNCRO) ; #,*#(COUNT) 3527 
000126 005200 INC RO ; COUNT 3526 
000130 020027 000007 CMP RO, 07 ; COUNT, « 

000134 003771 BLE S$ 
000136 000207 RTS PC ; 3493 
; Routine Size: 48 words, Routine Base: sCODE$ + 10410 


+ Maximum stack depth per invocation: 5 words 


; 3529 1 


SEQ 0343 
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; 3530 1 GLOBAL routine INIT_IO_ BUFF : novalue = 
+ fags} ts 
; 3533 1 ' THIS ROUTINE IS CALLED BY MD_INIT WHEN THE MULTI-DRIVE TEST 1s FIRST 
; 3534 1 ’ STARTED. IT or RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A 
, 3335 1 ' OLLECTION OF 1/0 BUFFERS. THE SIZE OF EACH 1/0 BUFFER Is DE TERMINED 
, 1 ' FACTORS, INCLUDING THE NUMBER OF UNITS, THE NUMBER OF 
; 3387 i CONTROLLERS, yA THE SIZE OF FREE MEMORY 
i .* 
; 3539 i ' ONCE THE BUFFER SIZE Is DETERMINED, THE NUMBER OF I/O BUFFERS IS 
; 3540 i > CALCULATED. FINALLY, THE BUFFER ADDRESS (BUFF_ADDR) TABLE IS LOADED 
; 3541 1 ' WITH FIXED BUFFER DESCRIPTORS THAT ARE USED IN THE ALLOCATION AND 
j 334 i DEALLOCATION PROCESS 
|, 9544 1 ; IMPLICIT INPUTS: 
; 3545 1 ' CTLR_CNT - THE NUMBER OF CONTROLLERS CONFIGURED 
ls 9546 i ; L$UNIT - THE NUMBER OF UNITS AVAILABLE FOR TESTING 
ls 93847 i ’ FREE_MEM_ADDR - START OF FREE MEMORY | 
; 35486 i !- 
F 3549 1 | 
5 3550 2 begin 
, 3333 2 BUFF _ADOR [0] = (.FREE_MEM_ADDR + 2 + 1) and #0'177776'; ! START OF READ/WRITE BUFFERS : 
; 
; 3553 2 while (.BUFF_ADDR [0] and #0'37') neq 0 do ! FORCE FIRST 1/0 BUFFER TO START 
, aaae : BUFF_ADDR [0] = .BUFF_ADDR [0] + 2; ' ON EVEN BOUNDAR | 
i 
; 3556 2 BYTS_PER_QIO = ((.ORS_START - .BUFF_ADDR [0]) / (QIO_PER_CTLR * MAX_CTLR)) and #0'177740'; 
' sae : ' MAX TRANSFER SIZE 
| 
+ 3559 2 if .BYTS_PER_QIO gtru MAX_XFER_SIZE 
’ 3560 2 hen 
, 3361 g BYTS_PER_QIO = MAX_XFER_SIZE; : ADJUST TRANSFER SIZE LOWER 
> 
: 3563 2 if .BYTS_PER_QIO lssu 32 
; 3564 2 then 
: 3565 3 begin 
; 3566 3 ERRSF (2, EGS_02, 0); ' ERROR IF NOT ENOUGH MEMORY 
; 3567 3 DOCLN; | 
: 3568 2 end; | 
' 3569 2 | 
; 3370 2 if (QIO_PER_CTLR * MAX_CTLR) gtru 1 
+ gare Ss wre | 
i 
; 3573 2 incr index from 1 to (QIO_PER_CTLR * MAX_CTLR - 1) do , ' INIT REMAINING TABLE ENTRIES 
; sate 2 BUFF _ADDR [.index] = .BUFF_ADDR [.index - 1] + .BYTS_PER_QIO; ! FIXED BUFFER ADDRESS 
i 
; 3576 1 end; ! ROUTINE INIT_IO_BUFF 


Ty ha INIT.IO.BUFF MULTI-DRIVE TEST ROUTINES 


000000 004137 000000G INIT. 10. BUFF 
JSR R1,$SAVE3 : 3530 
000004 013700 000000G MOV FREE .MEM. ADDR ,RO : 3551 


ZRQAM3 


+ Routine Size: 
+; Maximum stack 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000003 


000001 000000G 

000037 000000G 1$: 

000002 000000G 

c01250' 2s: 

000000G 

000010 

000937 000000G 

001400 

001400 000000G 

000000G 000040 3$: 

000001 4$: 
5$: 

177776G 

000000G 

000000G 

000007 

66 words, Routine Base: 


depth per invocation: 8 wor 


RTS 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


.QI0 
#37,BYTS.PER.QIO 
had .PER.QI0, #1400 


#1400, ,BYTS.PER.QIO 
BYTS.PER.QI0, #40 


54 

2 

EGS .02 

0 

Ba 

#1,R2 

R2,RO 

RO 

R2,R1 

R1 

BUFF .ADDR-2(R1),R3 
BYTS.PER.QIC,R3 
RS .BUFF . . ADDR(RO) 
R2,¢7 


¢ 
CSP )+,(SP)-+ 
PC 


$CODE$ + 10550 


VAX-11 Bliss-16 V4. 


582 
DISK SUSER2: [ML YNAR. 7RQ}ZROAHO. BL2;3 


*, INDEX 
INDEX, * 


; INDEX,+« 


; INDEX 
; INDEX,« 


SEQ 0344 
P 


age 61 
(18) 


y 
353 
: 
| 
| 
| 


ee LS age CT i: est 
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; 3577 1 GLOBAL routine Q@10_0K = 

3 3578 1 

: 3579 1 

: 3580 i te 

; 3581 1 ' THIS ROUTINE IS CALLED BY The MULTI_ORIVE “EXECUTIVE” IN ORDER TO 

; 3582 1 ' DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOULD 

; 35863 1 : GENERATED TO THE CURRENT CONTROLLER A VALUE OF “TRUE” IS RETURNED IF 

; see i THE CONTROLLER MEETS 3 REQUIREMENTS: 

3 4 

; 3586 1 ' A. THE CONTROLLER IS ONLINE; 

: 3587 1 ' B. THE NUMBER OF OUTSTANDING Q@I0s IS AT LEAST 2 LESS THAN THE 

; 3568 1 ‘ MAXIMUM ALLOWED FOR ANY ONE CONTROLLE 

; 2389 i C. THERE IS AT LEAST ONE DISK ONLINE TO THE CONTROLLER. 

$ e 

, 3391 d IF ANY OF THESE TEST FAIL, THEN A VALUE OF "FALSE" IS RETURNED. 

; ’ 

; 3593 1 ' IMPLICIT INPUTS: 

; 3594 1 ' CCTLR - CURRENT CONTROLLER NUMBER 

; 3595 i ' T_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 

$ 3596 1 !- 

’ 3597 1 

| lta 

3 in 

$ 3600 2 

:; 3601 2 local «MMM 

:s 3602 2 

; 3603 2 MILLISECOND : WORD, 'MMM 

; 3604 2 DUTY_CYCLE : WORD; 'MMM 

: 3605 2 

3 3606 2 

: 3607 2 MILLISECOND = .CLK_TICKS mod 60; 'MMM 

i 3608 

; 3609 2 if Cs .CST_ poor pi StATe) eql ONLINE) and ' IF CONTROLLER IS ONLINE 

: and 

; 3611 2 'MMM CC. Gro” # P eciuR? * 2) ca QIO_PER_CTLR) and ! IF OUTSTANDING QIO COUNT IS 0.k 
: 3612 2 €.QI0 (.CCTL LR) 1 RING _LE EN-2)) and IF OUTSTANDING QIO COUNT IS 0.K MMM 
s 3613 2 -CST_ADOR T IF THERE E Is VALID UNIT 

; te: ; (Cnot” .EL FLUSH re come) or ee... Q@IO [.CCTLR) eaqlu 69) 

3 

; 3616 2 then 

: 3617 3 i ae ' MMM 

$ 3618 3 ' if .CSR_MEM and .TST_PAR ' MMM 

; 3619 3 ' then ¢ MPM 

; 3620 ; it not .PAR_TSD ! MMM 

; 362 5 

; 3622 3 ' if .Q@I0 [.CCTLR) geq 1 ! MMM PROCESS ONE COMMAND AT A TIME UNTIL 
; 3623 3 ' then ' PARITY TEST IS COMPLETE 

; 3624 3 ' return ix 3 

; 3625 3 EL_FLUSH [. "CCTLR) * MMM 

; 3626 : : Rd CCCnot .TST WPAR)” or (.TST_PAR and .PAR Tsp)" and (.SWP_XFER NEQ 0)) ' MMM 
i t 

: 3628 3 > if .MAN_TST ' MMM 

; 3629 3 then ' MMM 


SEQ 0345 
Pege 62 
(19) 


SS 


KPMNNUUWuw 





SEQ 0346 
10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 83 
MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR .ZRQ)ZRGAHO.BL2;3 (19) 
= CDUTY_CYCLE = .MILLISECOND mod 60) gtru 15 !LOOK AT ‘CURRENT SECOND’ MMM 


return FALSE; !FIRST 15 OF 60 patnt (=1 SECOND) IS 258 DUTY CYCLE MMM 


RO/RX EXERCISER 


return TRUE; ! “TRUE” EXIT POIN 
end 
else 
return FALSE; ! “FALSE” EXIT PCINT 
end; MMM 
-SBTTL QIO.OK MULTI-DRIVE TEST ROUTINES 
000900G QI0.0K::JSR R1, $SAVE2 : 3577 
000000G MOV CLK. TICKS, -(SP) 3 3607 
000074 MOV #74,-CSP) 
000000G JSR PC ,BL$MOD 
MOV CST.ADDOR,R1 : 3609 
000002 ay =? 
000001 000000G My see FLAG ; 361 
000000G MOV CCTLR,R1 : 3612 
000000G 000002 on (ata | 
000000G MOV CST.ADOR,R1 ; 361 
000005 TSTB 5C(R1) 
BEQ 3$ 
000000G MOV CCTLR,R1 ; 361 
MOV R1,R2 
ASL R2 
000001 000106’ +a > (geettienieatetiaal 
000000G ane Q@IOCR1) 
000000G 1$: MOV CCTLR,R1 : 362 
ASL Ri 
000106' CLR EL .FLUSH(R1) 
000001 000000G ore ta : 362 
MOV RO,(SP) ; MILLISECOND, « 36 
000074 MOV $74,-(SP) 
JSR PC .6L$MOD 
TST SP )+ 
000017 CMP RO,@17 ; DUTY.CYCLE,« 
BLOS 2s 
CMP (SP)+,CSP)>+ : 363 
BR S$ 
000001 2s: MOV #1,R0 ; 36 
BR 4$ 
3$: CLR RO 
4$: CMP (SP)+.(CSP)>+ ; 
RTS PC ; 35 
S$: CLR RO ; 3577 


—- + -— —— a oe 


ZRQAM3 RDO/RX EXERCISER 
vo2.3 MULTI-DORIVE TEST ROUTINES 


000204 000207 


; Routine Size: 67 words, Routine Base: 
+ Maximum stack depth per invocation: 7 words 


: 3639 1 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RTS PC 
$CODE$ + 10754 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 3 


SEQ 0347 
Page 84 
(19) 


——— —-—--—<2 | -_-- 


—. 0348 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-S82 Page 85 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR.ZRQ)ZROAHO.BL2;3 (20) 
; 3640 1 GLOBAL routine Q10_OUT = 
—_— toa 
i 7° 
; 3643 1 ‘ THIS ROUTINE IS CALLED BY THE MULTI_ORIVE EXECUTIVE FOR DETERMINING THE 
; 3644 1 ‘ END OF THE MULTI-DRIVE TEST. ITS PURPOSE IS TO EXAMINE THE Q@IO VECTOR 
; 3645 1 ‘ FOR ANY OUTSTANDING QIOs ON ANY CONTROLLER. A VALUE OF “TRUE” IS 
: 3646 1 ‘ RETURNED IF THERE IS AT LEAST ONE QIO OUTSTANDING ON ANY CONTROLLER. 
; 3647 : OTHERWISE, “FALSE” IS RETURNED INDICATING NO OUTSTANDING GQIOs. 
i ih 
* | om 
Fi in 

i 4 3651 2 

: aeag ¢ iner CTLR from 0 to (MAX_CTLR - 1) do 

: = mn 
: 3654 3 SET_CPAR (.CTLR); ! SET UP CURRENT CONTROLLER PARAMETERS 
i 
: 3656 3 if .CST_ADDR [STATE] eql ONLINE ! IF CONTROLLER IS ONLINE | 
: 3657 3 then 
; 36568 3 return TRUE; 
5 3659 3 
: 3660 2 end; 
: 3661 2 
; 3662 2 return FALSE: ! EXIT - NO CONTROLLERS ONLINE 
$ 3663 i : | 

.SBTTL QIO.OUT MULTI-DRIVE TEST ROUTINES 
000000 010146 QIO.OUT:: 
MOV R1,-CSP) 6 
000002 CLR Ri ; CTLR 36 
000004 010146 1$: MOV R1,-(SP) ; CTLR,« 36 
000006 737 000000G JSR PC.SET.CPAR 
000012 013700 000000G MOV cst. RO P 36 
000016 760 000002 TST 2(RO) 
000022 BPL 2$ 
000024 7 TST (SP)> ; 36 
900086 012700 000001 MOV #1,RO0 
0000 BR 3$ 
000034 005726 2s: TST (SP) ; 365 
000036 005201 INC Ri ; CTLR 36 
000243 .WORD CLV!CLC 

000042 003760 BLE i$ 
000044 CLR RO ; 36 
000046 012601 3$: MOV (SP)+,R1 ; 364 
000050 000207 RTS PC 


: Routine Size: 


words, 


Routine Base: *sCODE$ + 11162 


+; Maximum stack dak per invocation: 3 words 


ee ee ee ee eee 


Ns 


MULTI-DRIVE TEST ROUTINES 
GLOBAL routine Q@10_GEN : novelue = 


RQAM 
02. 


_ 


> 






CONTROLLER ELIGIBLE TO RECEIVE 1/0 TRANSF 
RE ‘~ SECURING ONE OR TWO 


(Q@I0_ FYeré sae QI0_LBN baetD an Q@I0_ et ee ETC.) 


RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bli 
10-Oct-1985 09:21:16 DISK SUSER2: 


IBLE MSCP 
WITH VARIOUS PARAMETERS COMPRISING THE I/0 


THIS ROUTINE IS CALLED BY THE MULTI_ORIVE oh ata FOR AN ONLINE 


QUESTS. IT IS 








PACKETS AND LOADING T 


REQUEST. THE I/0 REQUEST 


GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM 
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER. 


EACH FIELD OF THE PACKET(S) IS TC.) Most OF oe a es ROUTINES 





VALUES SELECTED FOR 


: 1 
; 1 
t 1 H 
t 1 : 
t 1 : 
5 1 : 
’ 1 : 
2 1 9 
; 1 H 
5 1 : 
i : : 
‘ : 
| ; soos . EACH FIEL RANDOM NUMBER GENERATED AT THE START 
j 
| 3 3676 1 H UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/O REQUEST IS GENERATED. HOWEVER, 
; 3679 1 H IF THIS I/O REQUEST IS A “WRITE”, AND IF THE OPERATOR SELECTED THE 
; 3680 1 : OPTION FOR HOST WRITE-COMPARES, THEN A A SECOND “READ” REQUEST WILL BE 
; 3681 : : GENERATED WITH THE SAME LBN AND BYTE COUNT. 
; 3682 : 
' 36635 i : AFTER THE PACKET(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL 
; 3664 i ' AND ATTEMPTS TO T OR TWO I/0 BUFFERS FOR THE ACTUAL DATA 
: 3665 i : E THE woe / ‘i STATUS OF THIS a oe OPERATION IS 
; 3686 i ! PASSED BACK TO THE CALLER THROUGH THE GLOBALS ” “ AND “MX2"”; THEY 
: ord ; : CONTAIN VALID MSCP PACKET INDECES, OR -i1. 
; . 
$ 3689 1 ’ IMPLICIT ot + 
5 3690 1 H CCTL ~ CURRENT CONTROLLER NUMBER 
’ 3691 1 pe 
s 3692 1 : 
‘ 36935 2 in 
r ty : MX2 = -1; ! ASSUME FAILURE IN SECURING 2ND PACKET 
r 
F ts ¢ i (MX1 = GET_PKT (.CCTLR)) lss O ! TRY TO GET 1ST PACKET. IF FAILURE 
; hen 
: rts : return; ! NO POINT IN CONTINUING 
: 
’ 3700 2 if (MX2 = GET_PKT (.CCTLR)) lss O ! TRY TO GET 2ND PACKET. IF FAILURE 
: ad : then 
: 
’ 3708 3 PU ‘OKT s: MX1); ! RETURN 1ST PACKET TO POOL 
: 3704 3 MX1 = -1; * INDICATE FAILURE 
' 3705 3 return; § DONE 
| BS | - 
t 
: 3708 2 MAD1 = MSCP_PKT + (.MX1 « PKT_LEN «# 2); ! CALCULATE STARTING ADDRESSES 
' 3709 2 ote . aan “PKT + (.MX2 @ PKT_LEN * 2); 4 OF BOTH PACKETS 
1 3710 2 OM C); ! GENERATE A SET OF RANDOM NUMBERS 
’ sai3 : oO- Gare at ! LOAD RANDOM UNIT NUMBER INTO PACKETS 
: 
i 3713 2 if .EOP_FLAG ' RETURN IF NC UNIT ONLINE 
; 3714 2 then 
; 3715 ¢ return; 
’ 


ee e 





SEQ 0350 
ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 Vv4.1-S582 Pege 87 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISKSUSER2: [MLYNAR. FRA] ZROAHO. 8L2;3 (21) 
; 3717 2 Q@Io_ ruc Cs ' LOAD RANDOM FUNCTION CODE COPCODE ) 
; 3716 2 @I0_L 2 ! LOAD LBN (RANDOM OR SEQUENTIAL ) 
: 3719 2 Q@I0_ “ee C); ' LOAD RANDOM BYTE COUNT 
: 3720 2 GET_IO_8UFF (MAD1 (BUF_0)); ! TRY TO GET AN I/0 BUFFER 
i 
i 372¢ 2 if .MX2 geq 0 ! IF TWO Q@IOs ARE TO BE ISSUED 
? in 
, 3725 3 GE? 10_BUFF (MAD2 (BUF_0O)); ! TRY TO GET 2ND 1/0 BUFFER , 
5 
, 7 3 if .MAD2 (BUF_0O) eale 0 ! IF 2ND BUFFER ALLOCATION FAILED | 
5 3726 3 then | 
’ AL 34 3 begin 
; 
; 373 ‘ if .MAD1 (BUF_O) neae 0 ‘ IF 1ST 1/0 BUFFER WAS ALLOCATED | 
3 then 
; 73 
' 734 3 pur t I0_8UFF cman. (BUF_0}); ' RETURN 1ST I/O BUFFER TO POOL | 
, He ; moi (6uF_o ! MARK IT AS FAILED 
i 
j 7 & 
>; = 4 PUT _PKT AS MX2); ' RETURN 2ND PACKET TO POOL 
s 3739 4 MX2°= -1; ! INDICATE FAILURE 
‘ rae : end; ! IF 2ND I/0 BUFFER ALLOCATION FAILED 
i 
, 3742 2 end; ! IF TWO Q@I0s ARE TO BE ISSUED 
5 
, 744 2 if .MAD1 (BUF_O) eale 0 ! IF 1ST I/0 BUFFER ALLOCATION FAILED 
‘ 745 : then 
i ans son's 
; 747 «(3 PKT AS MX1); ! RETURN 1ST PACKET TO POOL 
' 7 3 = -1; ' INDICATE FAILURE 
; 74 5 
' H elee 
i 
; if .MAD1 [OPCODE) eql OP_wRT ! OTHERWISE. IF 1ST OPCODE IS A WRITE (CALL IS O.K.) 
: FILL_BUFF (); ! FILL 1ST I/O BUFFER WITH APPROPRIATE DATA PATTERN 
i 
> & i end; ' ROUTINE QI0_GEN 
.SBTTL QIO.GEN MULTI-DRIVE TEST ROUTINES 
000000 012737 177777 000112: QIO.GEN: : 
3746 0000006 wy ectiR (SP) 3 
739 0000006 JSR PC GET .PKT “ 
0001106' MOV RO,MX1 
TST (SP). 
TST RO ; MX1 
SLT 63 : 36 
000000G MOV CCTLR, -(SP) ; 37 





0000 008739 000000G JSR PC .GET .PKT 


me may cle 





RD/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


000112’ 
000110’ 
177777 


000110’ 
000106 
090000G 


000900G 
000114' 


000112’ 
0001 


000110’ 


_ Ov0lle' 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RO,M 

PC ,.GET.RANDOM 
PC ,QIO.UNIT 
 Ceatininatan 


#32 ,(SP) 
PC ,GET.1I0.BUFF 
Mx2 


SEQ 0351 
-1-582 Page 88 
. ZRQ)ZRGAHO.BL2; 3 (21) 


3709 


000342 012737 
0004 


; Routine Size: 


RDO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


177777 000110’ 


000114° 4s: 
000022 000042 
000000V 
000006 S$: 
6$: 
128 words, Routine Base: 


; Maximum steck depth per invocation: 4 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


MAD1 ,RO 
CMPB 22(RO), 42 
BNE $ 
JSR PC.FILL .BUFF 
ADD #6 ,SP 
RTS 


sCODE$ + 11234 


SEQ 0352 


VAX-11 Bliss-16 v4.1-582 Pege 49 
DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO .BL2; 3 (21) 
3 3748 
: 3744 
: 3752 
: 3754 
$ 3693 
3 3664 


ZRQAMS 
vo2.3 


uw 
“ 
on 
a 


PP IGE IPO PD NOPD NDAD ee ee ee 


004137 


013703 
013702 
00 


———_——— ee ee 


RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


GLOBAL routine GET_RANDOM : 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


novelue = 


THIS ROUTINE IS CALLED By 9 .GEN TO GENERATE A SET OF RANDOM NUMBERS, 
AND TO S THE RA 


STORE THEM INTO THE RANDOM NUMBER TABLE (RANDOM). 


NOOM 
NUMBERS ARE USED TO SELECT I/0 REQUEST PARAMETERS FOR THE CURRENT QIO 
js Q@IO PAIR. IN 


ADDITION, IF DATA PATTERN @1 IS BEING USED, THESE 
RANDOM NUMBERS WILL BE USED IN THE WRITE OPERATION. 


SEED : word initial (173), 
NEXT_RANONUM : word initial (245); 


incr COUNT from 0 to (RDM_LEN - 1) do 


end; 


001272' 
000004 


000004 

000000G 
001272' 
001274' 


Sebo” = (.SEED + et “oe + 1) # 4; 
NEXT_RANDNUM = (.NEXT 


_R 
[.COUNT) = .NEXT_RANDNUM; 


RANDOM [ 
end; 
-PSECT $&GGG$s, RO 
SEED: . WORD 255 
NEXT .RANDNUM: 
. WORD 365 
.SBTTL GET. teee MULTI-DORIVE TEST ROUTINES 
.PSECT $CODE $ 20 
GET .RANDOM: : 
JSR R1, $SAVE3 $ 
MOV SEED ~R3 ; 
MOV T .RANDNUM ,R2 
CLR R1 ; COUNT 
1 $ $ MOV R2 s RO : 
ADD R3,RO 
ASL RO 
ASL RO 
MOV RO,SEED 
001272' ADD #4 ,SEED 
MOV R2,-CSP) 3 
MOV 84 Og iq se 
JSR PC, ,.BLSDIV 
MOV ED, 
ADD R3,RO 
MOV RO,NEXT .RANDNUM 


VAX-11 Bliss-16 v4.1 ege 90 
DISK $USER2: (ML YNAR . ZRQ)ZRGAHO.BL2;3 (22) 


-582 


SEQ 0353 
P 


010002 
010261 
022626 
062701 
020127 
003744 
000207 


i; Routine Size: 
; Maximum stack 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000000G 


000002 
000036 


3€ words, 


. Routine Base: 
depth per invocation: 7 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


MOV RO,R2 

MOV R2,RANDOM(R1 ) 
CMP CSP )+,(SP)-+ 
ADD #2,R 

CMP R1, 036 

BLE i$ 

RTS PC 


SCODES + 11634 


Vv 
) 


AX-11 Bliss-16 V4.1-5862 
ISK $USER2: [ML YNAR . ZRQ)ZRGAHO.BL2; 3 


NEXT . RANDNUM , « 
«,#( COUNT ) 


«, COUNT 
COUNT, «¢ 


Page 
(22) 


SEQ 0354 


91 
3777 
3774 
3773 


3757 


LT A ES Se ae 


VUNVVNVNNNNNNNNVNNVNNNN WUNNNNVNNVNNIN Eh pee ee pee pe pepe pe pee pepe pe 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


GLOBAL routine RANDY 


° 


: novelue = 


pes ROUTINE GENERATES A 32-BIT RANDOM NUMBER 


E OUTPUT IN “RNDYO". 


THE LOW 3 BITS OF CLK_TICKS SELECTS A 
IS ‘R_STRING’. FRAME_ENT (0-9) SELECTS A 
WORD. BITS OF THIS FRANE ARE USED AS FOLLOWS: 


BITS 0-2 ... SELECT A PATTERN FOR LOW WORD. 
BITS 1-3 ... SELECT A PATTERN FOR HIGH WORD. 
BIT 4 ... IF 1, SHIFT PATTERN LEFT. 

BITS 4-6 ... SELECTS MASKS FOR FINAL OUTPUT. 


IF .FRAME_CNT EQLU 0 
THEN 


BEGIN 
— = .RNDYIN [.CLK_TICKS AND 7) 
; 


-STRING t -.FRAME_CNT) AND 7); 


-RNDYIN [C.R 
“STRING t(-1 -.FRAME_CNT)) AND 7); 


enT_LO = 
-RNDYIN [C€.R 


PAT_HI = 
(-4 -.FRAME_CNT)) AND 1; 


. SHIFT; 
" SHIFT) ¢ . SHIFT; 


SHIFT = (.R_STRING t 
PAT_.O = .PAT_LO t 
PAT_HI = (.PAT_HI t 


MSKNO = (.R_STRING t (-4 -. FRAME CNT)? AND 7; 
RNDYO = .PAT_LO AND (.RNDMSO [ f =e 2 

RNDY1 = .PAT_HI AND (.RNDMS1 [.MSKNO)); 
FRAME_CNT = . FRAME -CNT » ie 


IF .FRAME_CNT GTRU 9 
THEN 
FRAME _CNT = 0; 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


SEQ = 
DISK $USER2: [ML YNAR . ZRQ)ZROAHO.BL2;3 


VAX-11 Bliss- Je v4.1-5862 


THE LOW 16 BITS 
THE HIGH 16 BITS ARE OUTPUT IN “RNDY1”. 


Far ae FROM ‘RNODYIN’. 
7-BIT FRAME 


THIS 
OF THIS 


‘LO WORD OF PATTERN 
!HI WORD OF PATTERN 
'LEFT-SHIFT BIT 
!WHICH MASK TO USE 


‘IF IT’S TIME TO SAMPLE CLOCK AGAIN 


*CLOCK BITS SELECT 16 BIT STRING 


‘BITS 0-2 OF FRAME SELECT LO WD OF PATTERN 
‘BITS 1-3 OF FRAME SELECT HI WD OF PATTERN 


‘BIT 4 OF FRAME IS SHIFTER. 
‘SHIFT PATTERN IF SHIFTER = 1 
‘SHIFT PATTERN AND ADD 1 IF SHIFTER = 1 


!GET MASK INDEX 
!MASK LO WORD 
!MASK HI WORD 


* SHIFT FRAME LIFT ONE BIT 
:IF DONE TEN RANDOM 32-BIT NUMBERS 


‘ZERO IT, SO WE'LL READ CLOCK NEXT TIME 


SS 6 ee eee ee ae et 


- ee eee 


ZRQAMS RO/RX EXERCISER 


vo2.3 MULTI-DRIVE TEST ROUTINES 


‘ 3834 1 END; 


000000G 
| 000016 042700 177770 


006300 
, 000024 016037 000136’ 
, 000032 ot se 000134’ 


| 000036 0101 

| 000040 010246 
000042 005416 

000044 004737 0000C0G 
000050 042700 177770 
000054 006300 


000056 016004 C00136’ 
177777 


004737 000000G 
000076 pos fhe 177770 


006 
000104 016003 000136’ 
000112 012746 177774 
120 004737 000000G 


000130 042702 177776 


000 

000140 004737 000000G 

000 0004 

000152 004737 000000G 
060200 


042702 177770 
010200 


000174 016037 000160' 
2 005104 
040437 000126’ 


006300 
4 016037 000200’ 


004137 000000G 
013702 000132’ 
001010 


000134’ 


000126’ 


000130' 


RANDY: : 


1$: 


a 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


= RANDY MULTI-DRIVE TEST ROUTINES 
R1, $SAVE4 

FRAME. .CNT,R2 

CLK. TICKS,RO 


_— 


0 
7a a 


R.STRING, 


PC ,BL$SHF 
_ 


0 
RNDYINCRO),R4 
R1,CSP) 


@-1,-(SP) 
R2,(SP) 
PC. BLS$SHF 
@177770,RO 


RNDYINCRO),R3 


Ri, 
#177770,R2 
R2,RO 


0 
a ene) YO 


R4,RNDYO 
R2,R 


RO 
ie teal aaa 


VAX-11 Bliss-16 v4. 
DISKSUSER2: (MLYNAR. FROIZROAHO. BL2;3 


*,PAT.LO 


*,PAT.HI 


*, SHIFT 
*, SHIFT 
PAT.LO,« 
SHIFT, « 


; SHIFT,« 


SHIFT, « 


MSKNO, ‘ 


MSKNO, # 


SEQ 0356 


93 
oe" 23) 


— ee -~ ——— eer er ee lee a 


SEQ 0357 

ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 X-11 Bliss-16 V4.1-5862 Page 94 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 Drexsusens. : (MLYNAR . ZRQ)ZROAHO.BL2;3 O98 23) 
000224 040337 000130’ BIC R3,RNDY1 
000230 005237 000132’ INC FRAME .CNT | 3829 
000234 023727 000132‘ OOO011 CMP FRAME .CNT, #11 ; 3830 
000242 101402 BLOS 2s 
000244 005037 000132’ CLR FRAME .CNT ; 3832 
000250 062706 000014 2s: ADD 014,SP ; 3799 

254 000207 RTS PC | 3782 

| : Routine Size: 87 words, Routine Base: $sCODE$ + 11744 


+ Maximum stack depth per invocation: 12 words 


. TT 


~~ oF @ Ge Ge GF Ge oe Ge Ge Ge Ge Ge Ge Ge cu 


VVUVVNNUNNUNNVUNUNUNNNNNUNNNVNNNNNVNNND le ep ere pe pee pepe pene pe 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4. 


MULTI-ORIVE TEST ROUTINES 


GLOBAL routine QIO_UNIT : novalue = 


° 


THIS ROUTINE IS CALLED BY QIO_GEN TO RANDOMLY SELECT ONE UNIT 
CONFIGURED UNDER THE CURRENT CONTROLLER CCCTURS TO BE USED FOR THE 
CURRENT Q@IO OR QIO PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF 
UNITS ELIGIBLE TO RECEIVE AN I/O REQUEST (FROM 1 TO 4) AND THE FIRST 
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM). 


IMPLICIT INPUTS: 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER’S CST 
IMPLICIT OUTPUTS: 
THE RD/RX DISK NUMBER CDISK ADDRESS) IS LOADED INTO THE 
APPROPRIATE FIELD OF BOTH MSCP PACKETS. 
begin 
local 
MOD_COUNT : had 
BL_C : byte 


T OUNT 
SELECT_RD : —. initial Syvee CTRUE)), 


'ZZZ Ee ae : word initial (0 


_COUNT : word initial (0); 
THE UNITS WILL BE SELECTED ON AN ADJUSTABLE RATIO, RDS1/52 TO Rx50, 
SELECTED VIA THE SOFTWARE PARAMETERS 
THIS “wy IS FOR SELECTING DEVICES ON THE a tL ONE SCHEME : 


CHOOSE A DEVICE AND KEEP IT SELECTED FOR A CONSTANT TIME. THEN 
MOVE TO THE NEXT. THIS IS NON-RANDOM, FIXED SEQUENTIAL OPERATIONAL 


RD_COUNT = 0; $ZZZ 
RX_COUNT = 0; !Z2ZZ 


incr OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF_UN) by UNIT_SIZE do 
if €.CST_ADOR [.OFFSET + OF_DATA, p _PRES cat PRESENT) and 
(.CST_ADDR [.OFFSET + OF _DATA, D STAT NE) and 
(not -CST_ADOR [.OFFSET > OF DATA, D “FATAL)) 
hen 
is (.CST_ADOR [.OFFSET + OF_DATA, D_TYPE] eal FIXED) 
en 
. RD_COUNT = .RD_COUNT + 1 ! NUMBER OF RD51/52s UNDER TEST 
se 
RX_COUNT = .RX_COUNT + 1; ! NUMBER OF RX50s UNDER TEST 


1-562 
10-Oct-1985 09:21:16 DISK$USER2: (MLYNAR . ZRQ)ZRGAHO.BL2;3 


sess sleet lls ss cee een ee ee 
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RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 





10-Oct-1985 09:21:16 DISK $USER2: (MLY 


if (not BIT_TST (CSWP_FLAGS, SWF_RDM)) and ! NOT RANDOM 
(mot BIT_TST (SWP_FLAGS, SWF_SEQ)) 


MODE 
! NOT RANDOM SEQUEUNTIAL MODE 


if (.BST_CNT rq 0) an 
(CST ~ADOR -BST _Dev + OF_DATA. D_PRES) eql PRESENT) and 
ti "CST [°BST-DEV + OF “DATA, D~STAT] eal ONLINE) and 


~ADOR ) 
not .CST raDOR? (.8ST _DEV ¢ OF_DATA, D_FATAL)) 


"begin ' ALREADY WITHIN DEVICE 
BST_CNT = .BST_CNT - 1; 

SET_UPAR (.B8ST_DEV); 

MADi [DK _NUM a “COISK; 

MAD2 [DK_NUM] = .CDISK; 


begin ! GET NEW DEVICE 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1 
NAR . ZRQ)ZRGAHO.BL2;3 


SEQ 0359 


-582 


incr OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF _UN) by UNIT_SIZE do 


f €.CST_ADDR [.OFFSET + OF _DATA, D_PRES eql PRESENT) and 
(.CST_ADDR [.OFFSET + OF _DATA, D_ - ¥ eql ONLINE) and 
(not .CST _ADOR {.OFFSET + OF _DATA, D_FATAL)) 
hen 
a ([.OFFSET + OF _DATA, D_TYPE]) eal FIXED) 
RDO_COUNT = .RD_COUNT + 1 ! NUMBER OF RDS1/S2s UNDER TEST 


else 
RX_COUNT = .RX_COUNT «+ 1; ! NUMBER OF RXSOs UNDER TEST 


incr OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) « UNIT_SIZE + OF _UN) by UNIT_SIZE do 


begin 


if €.BST_DEV eql 0) o 
(.BST_DEV eql CCUNITS -PER_CNTR - 1) # UNIT_SIZE + OF_UN)) 


BST_DEV = OF_UN 
se 
BST_DEV = .BST_DEV + UNIT_SIZE; 


f €.CST_ADOR t- -BST_DEV + OF _DATA, D_PRES 71 <3 1 PRESENT) and 
(.CST_ADOR [.BST_DEV + OF_DATA, D_STAT 1 ONLINE) and 
‘ (not .CST _ADOR [(-BST _DEV + OF ATA » OL FATAL AL}) 
n 
begin 


if -CST_ADDR [.6ST_DEV + OF _DATA, D_TYPE] eql REMOVABLE 
en 

1 BST_CNT = .RX_MAX_SEQ_CNT / .RX_COUNT 

se 


P 96 
matey 


ee me 


eee = 
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RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 


MULTI-DRIVE TEST ROUTINES 
BST_CNT = .RD_MAX_SEQ_CNT / .RD_COUNT; 
i? -BST_CNT eql 0 
BST_CNT = 1; 
SET_UPAR (.BST_DEV); 


MADi taped, = .CDISK; 
DK_NUM} = .CDISK; 


end; 
end; 
RANDOM SELECTION OF DRIVES 


DETERMINE IF ROS1/S2s ARE TO BE SELECTED 


a (ROM_LEN - 1) and %0'077777' ) mod 100) gequ .SWP_RAT 
SELECT_RD = FALSE; 


IF RDS1/52s SELECTED 
' COUNT NUMBER OF RDS1/S2s AVAILABLE 


3 . SELECT_RD 


hen 
in 
HOB. COUNT = 0; ! COUNT THE NUMBER OF RDs UNDER TEST 
incr OFFSET from (0 + OF_UN) to CCUNITS_PER_CNTR - 1) # UNIT_SIZE + OF _UN) by UNIT_SIZE do 


if €.CST_ADDR [.OFFSET + OF _DATA, D_PRES) eaql PRESENT) and 
(.CST_ADOR [.OFFSET + OF _DATA, D_STAT} eql ONLINE) and 
(.CST_ADDR [.OFFSET + OF _DATA, D_TYPE] eql FIXED) and 
— -CST_ADOR [.OFFSET + OF _DATA, D_FATAL)) 


in 
STORAGE {.MOD_COUNT] = .OFFSET; 
— = .MOD_COUNT + 1; 

3 


SELECT ON OF THE RDS1/S2s 





SEQ 0360 


P 97 
10-Oct-1985 09:21:16 DISK SUSER2: [MLYNAR . ZRQ)ZRGAHO.BL2;3 ee 28) 


— +< © «-as-- 
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a 


SEQ 0361 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 V4.1-56 Page 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZRGAHO.BL2;3 (24) 
3994 3 
3995 3 if .MOD_COUNT neq 0 ! IF AT LEAST ONE RDS1/5S2 PRESENT 
3996 3 then 
3997 4 begin 
3998 4 TBL_COUNT = O; 
3999 4 
4000 4 
4001 5 pegin 
4002 5 SET_UPAR (.STORAGE [(. — (.TBL_COUNT) and #0'077777' ) mod .MOD_COUNT)); 
ons ; TBL_COUNT = .TBL_COUNT 
4005 5 until (C. csT_ ADOR [.CUOFF + OF _DATA, D_PRES) eql PRESENT) and 
4006 5 (.CST_ADOR [{.CUOFF + OF “DATA, D_STAT] eql ONLINE) and 
4007 4 (not [CST_ADOR [.CUOFF > OF _DATA, O_FATAL))) or 
4008 ‘ (.781 COUNT eql ROM_LEN); 
4010 4 He 4 0K. ian - .CDISK; 
4011 4 .CDOISK; 
4012 4 oak 
4015 3 end; 
4014 3 
4015 2 end; 
4016 2 
4017 2 ! 
seis : : IF NO RDS1/S2 SELECTED, SELECT AN RXSO 
4020 2 ! COUNT THE NUMBER OF RX50s 
4021 2 ! 
4022 2 
poe : MOD_COUNT = 0; 
4025 . incr OFFSET from (O + OF _UN) to CCUNITS_PER_CNTR - 1) « UNIT -SIZE + OF _UN) by UNIT_SIZE do 
4027 2 f (.CST_ADOR [.OFFSET + OF _DATA, D_PRES) eal PRESENT) end 
4028 2 (.CST_ADOR [.OFFSET + OF _DATA, D_STAT eql ONLINE) and 
4029 2 (.CST_ADDOR [ .OFF = + OF _DATA, D_Ty Ky rs REMOVABLE) and 
4030 3 (not -CST_ADOR [.OFFSET > OF _NATA, D_FATAL)) 
4031 2 then 
4032 3 begin 
4033 3 STORAGE ([.MOD_COUNT]) = .OFFSET; 
4034 3 MOD_COUNT = .MOD_COUNT «+ !; 
4035 2 end; 
ao e 
4037 2 ' 
40 2 ! AND CHOOSE ONE! 
4039 2 : 
4040 2 
4041 2 if .MUD_COUNT neq 0 
4042 2 then 
40435 3 mapin 
4044 : TBL_COUNT = O; 
3 





] <= - cee -weece 


r 
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SEQ 0362 
P 


ZRQAM3 RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 age 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZRQAHO.BL2;3 (24) 
_— = SEP UPAR (STORAGE [( RANDOM ( . T8L_COUNT) 77777') } 

; . TAL. and #0'0 7‘) mod .MOD_COUNT)) 

; 64049 «4 TBL-COUNT = .TBL COUNT + 1; ;, 

; 4050 4 end 

; 4051 4 until (C.CST_ADDR [.CUOFF + OF _DATA, D_ -ERES} 99 eal PRESENT ) and 

; 4052 4 (.CST_ADOR [{.CUOFF + OF DATA, D STAT ) and 

; 4053 3 {net “tern ADOR [.CUOFF + OF _DATA, D_ Fatae) “ ~ 

, 4038 3 TBL_COUNT eql _LEN); 

i 405 

; 4056 3 MAD1 Fox _NUM) = .CDISK; 
: 4057 3 2 [OK_NUM) = .CDISK; | 
F 40568 3 return; 
r 4059 2 end; 
; 4060 2 | 
5 4061 2 : | 
' 4062 2 : IF NO UNIT SELECTED SO FAR BY ABOVE METHOD, SELECT ANY ONE AT RANDOM 

i ; 

; 4064 2 ' COUNT ALL UNITS AVAILABLE | 
5 4065 2 ' i 
5 4066 2 

: 4067 2 MOD_COUNT = 0; 

i 4068 

; 4069 2 ince OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF_UN) by UNIT_SIZE do | 
i 

; #4071 2 if €.CST_ADOR (.OFFSET + OF _DATA, stat sal sai 9 PRESENT ) and 

: 4072 2 (.CST_ADDR OFFSET ¢ OF _DATA, D-Stat ) and 

; 4073 3 nest [CST_ADDR (.OFFSET + OF _DATA, D “FATAL 

$ 4074 2 

$ 4075 3 “ 

; 4076 3 AGE {moo _COUNT] = .OFFSET; 

5 4077 3 .MOD_COUNT «+ 1; 

t 4078 2 

; 4079 2 

: 40860 2 ‘ 

; 4081 g ! SELECT ANY ONE ONE UNIT AT RANDOM 

; 

5 4063 2 if .MOD_COUNT neq 0 

s 4064 2 then 

' 4065 3 vepin 

» 4086 3 TBL_COUNT = 0; 

$ 40867 3 

' 4066 3 do 

: 4069 4 pagie 

; 4090 4 SET_UPAR_(.STORAGE [(.RANDOM [.TBL_COUNT) and #0'077777' ) mod .MOD_COUNT)); 

; 4091 ‘ TBL_COUNT = .TBL_COUNT «+ 1; 

' 409 

; 4093 4 until (C.CST_ADOR f. .CUOFF + OF _DATA, PRES) eql PRESENT) and 

; 4094 4 (.CST_ADDOR {.CUOFF + OF -DATA D-STAt 1 INE ) 

; 4095 8 (not [CST ADORE CUOFE 2 OF DASA? B PAtaE Sen 

, 4096 3 (.TBL_COUNT eql RDM “LEN); 

; 409 

r 4096 3 MAD1 (OK_NUM) = .CDISK; 

: 4099 3 MAD2 (DK_NUM .CDISK; 





-—_—_ 








ZRQAMS RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 v4.1-5862 age 
vo2.3 MULTI-DORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2 : (ML YNAR . ZRQ)ZRQAHO.BL2;3 (24) 
; 4100 5 return 
’ 4101 3 
$ sist 3 
’ 410 5 ' 
t 4104 3 ! DECLARE END-OF-PASS IF NO UNIT ONLINE 
4 4105 3 : j 
; 4106 3 
’ 4107 2 else 
‘ ty : EOP _FLAG = TRUE; 
‘ 
$ 4110 1 end; ! ROUTINE QIO_UNIT | 
-SBTTL QIO.UNIT MULTI-DRIVE TEST ROUTINES 
000000 004137 000000G QIO.UNIT:: 
JSR R1, $SAVE4 : 38 
000001 Move @1,R4 ; *,SELECT.RD 
R3 ; RX.COUNT 
C00000G RD . COUNT : 
000000G CST. ADDR ,R2 5 
000006 #6 .R1 ; *,OFFSET 
1%: R1,RO ; OFFSET, « 
R2,RO 
040000 Cae) 
‘3 020000 ical $ 
: 010000  Saeaataaaead : 
710 000020 #20, CRO) : 
403 2s 
37 000000G feel : 
$ 
; 2s: R3 ; RX.COUNT 
| 3%: Ri ; *,OF FSET 
% 000102 ) ais ; OFFSET,« 
0 5 000002 000000G BIT + Sau diana i 
O32 ; 001000 000000G BIT Sap ee -F LAGS : 
oo} 7 BNE 13% 
7 001242’ TST SST .CNT : 
001447 BEG 43% 
0 001244' MOV 8ST .DEV.RO : 
ASL RO 
ADO R2.RO 
32 040000 eo > * ngacartaiaiaaale 
013700 001244’ MOV BST .DEV.RO : 
ASL RO 
ADO R2,RO 
0 49 020000 BIT @20000 . (RO) 
001431 BEQ 43 








ll ee ——_— ~— ee ee - 


RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


001244’ 


010000 


001242’ 
001244’ 


000114’ 


000116’ 
000000G 


001270’ 


001266' 
000000G 


000000G 
001242’ 


000001 
001244’ 
000114’ 


000116' 
000000G 


000012 
000041 


000016 
000016 


001244' 
001244’ 


001242’ 


000016 
0v0016 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


BST.DEV,RO 
RO 


i, 
CDISK, 16(RO) 
CDISK, 16(RO) 
(SP). 


@3,R2 
BST.DEV,RO 
6$ 

RO, 041 

7$ 
3,8ST.DEV 
8$ 


#12,B8ST.DEV 
 caaileae 


CST.ADDR ,RO 
#40000 , (RO) 
12$ 


— 
#10000, (RO) 
#20,(RO) 

93 


RX .MAX.SEQ.CNT,-(SP) 
RS. -(SP) 


RD .MAX.SEQ.CNT, -(SP) 
RO (SP) 


MAD1. 

COISK ,16(RO) 
CDISK,16(RO) 
(SP)-+, de 


? 
#12,R2 
R2, 041 
S$ 


=e, 0364 


VAX-11 Bliss-16 v4.1-582 Page 101 
DISK $USER2: (ML YNAR . ZRQ)JZROAHO.BL2;3 (24) 
; 3896 
; 3899 
| 3900 
; 3901 
$ 3902 
: 3903 
$ 33898 
; *, OFFSET 3921 
; 3924 
3 3925 
$ 3927 
; 3924 
: 39 

3 3931 
; 3932 
3933 
; 3937 
$ 3939 
; RX.COUNT,« | 
; 3941 
; 3943 
: 3945 
3 3947' 
: 3948) 
: 3949 
: 3950 
$ 3935, 
; #,OFFSET 3921 
; OFFSET,« 


— ae - 


Hiecceseseeseul 4f 


: 


000574 


001406 
032710 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


0000 36G 13%: 


14$: 


15$: 


000012 168: 


17$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RANDOM. 36, -(SP) 
SP) 


RO 
R3,RO 
RO 


RO 
R2,RO 


#100000, (SP ) 


STORAGE(RO).( SP) 
PC ,.SET.UPAR 


R2 
(SP )+,(SP)-+ 
CUOFF ,RO 


RO 
CST. ADDR ,RO 
#40000 , (RO) 


18% 
#20000 , (RO) 


SEQ 0365 


VAX-i11 Bliss-16 v4.1-582 Pege 102 
DISK $SUSER2: (ML YNAR. ZRG)Z7ROGAHO.BL2; 3 (24) 
: 3964 
; SELECT.RD 3966 
; SELECT.RD 3974 
; MOD.COUNT 3977 
; #,OFFSET 3979 
; OFFSET,« 3961 
3 39862 
; 3983 
; 3984 
: 3987 
; MOD.COUNT,« 
; OF FSET,« 
; MOD.COUNT 3988. 
; #,OFFSET 3999 
; OFFSET,« 
; MOD.COUNT 3995, 
; TBL.COUNT 3996) 
4002 
; TBL.COUNT,« 
; MOD.COUNT,« 
; TBL.COUNT 4003 
; 4001 
H 4005. 
4006 


-— -—we a eR ee 


a ee_rlee ene snes ee ——_——- 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


010000 


000020 18%: 


19$: 
20%: 


000012 21$: 


223s: 


000020 23s: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RO 
CST. ADDR ,RO 
#40000 , (RO) 


21% 

#20000, (RO) 
21% 
me 
#10000, (RO) 
21$ 

RO 

R3,RO 

RO 
R1,STORAGE(RO) 
R3 

#12,R1 
R1,041 

20$ 

R3 

25% 

R2 

RO 

R2,RO0 

RO 


pyr tote le BN -(SP) 
#100000, (SP) 


) 
R3,(5P) 
PC ,.Bi $M0D 


RO 
zee (AO). (SP) 
PC.SET.UPAR 


R2 
(SP)+,(SP)- 
CUOFF .RO 


RO 
CST. ADDR ,RO 
#40000, (RO) 


23% 

 * aca dade 
#10000, (RO) 
30$ 

R2,%20 


VAX-11 Bliss-16 v4.1-562 
DISK $USER2: [ML YNAR . ZRQJZRQAHO.BL2;3 


MOD . COUNT 
*, OFFSET 
OFFSET,« 


MOD . COUNT 
TBL . COUNT 
TBL . COUNT, « 


MOD .COUNT,« 


TBL . COUNT 


TBL . COUNT, 


—- — ee 


RD/RX EXERCISER 10-Oct-1985 09:41:47 
MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 

001335 BNE 22 

Sol 243: BR 30% 

3 258: CLRB eR 

012701 000003 MOV @3,R1 
010100 26%: MOV R1.RO 
006300 ASL RO 
063700 0000006 ADD CST. ADDR,RO 
032710 040000 BIT 40000, (RO) 
001414 BEQ 7$ 
032710 020000 BIT 20000, (RO) 
001411 BEQ 278 
032710 010000 BIT 10000, (RO) 
001006 BNE 278 
005000 CLR RO 
150300 BISB R3.RO 
006300 ASL R 
010160 000064’ MOV R1,STORAGE(RO) 
105203 INCB = RB 
062701 00012 278: ADD #12,R1 
020127 000041 CMP R1, 041 

3750 26$ 
105703 TSTB sR 
001457 BEQ 31$ 
105002 CLRB 
005000 283: CLR RO 
150200 BISB R2,RO 
006300 ASL RO 
016046 0000006 MOV RANDOMC(RO), -( SP) 
042716 100000 BIC #100000, (SP) 
005046 CLR : 
110316 MOVB = -R'3. (SP) 
004737 0000006 JSR PC .BL $MOD 
006300 ASL RO 
016016 000064: MOV STORAGE(RO). (SP) 
004737 0000006 JSR PC, SET. UPAR 
022626 CMP (SP)+,(SP)+ 
013700 0000006 MOV CUOFF /RO 
006300 ASL RO 
063700 000000G ADD CST. ADDR.RO 
032710 040000 BIT 40000, (RO) 
001406 BEQ § 
032710 020000 BIT 20000, (RO) 
001403 BEQ 
032710 010000 BIT #10000, (RO) 
001403 BEQ 
120227 000020 29% R2, #20 
001335 BNE 283 
013700 000114 30$: MOV MAD1,RO 
013760 0000006 000016 MOV CDISK, 16(RO) 
013700 000116’ MOV MAD2.RO 
013760 000000G 000016 MOV CDISK, 16(RO) 
000207 RTS PC 


SEQ 0367 


VAX-11 Bliss-16 v4.1-582 Page 104 
DISK $USER2: [ML YNAR . ZRQ) ZROAHO.BL2;3 (24) 
MOD . COUNT 4067 
; *,OF FSET 4069 
; OFFSET,« 4071 
; 4072 
$ 4073 
$ 4076 
; MOD.COUNT,« 
; OF FSET,« 
; MOD.COUNT 4077 
P «, OFFSET 4069 
; OFFSET,« ! 
; MOD.COUNT 4083 
; TBL.COUNT 4086 
; 4090) 
; TBL.COUNT. « | 
| 
; MOD.COUNT,« i 
| 
; TBL.COUNT i335 
3 408 
; 499 
! 
: 4094! 


a3 


TBL .COUNT, « 


33 


: 


——_— or _— 


LL eS ee lel cls et ate ene 


eee « - 


SEQ 0368 


RQAM /RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-S62 Page 105 
voe 3 MULTI -DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISKSUSER2:(MLYNAR.ZRQ)ZROAHO.BL2;3 (24) 

374 737 000001 0000006 31: MOVB 1,€0P.FLAG ‘ 4108 
001402 600207 RTS PC ; 3835 


+; Routine Size: 386 words, Routine Base: ‘sCODE$ + 12222 
; Maximum stack depth per invocation: 8 words 


ee 


eee ee. eee 


aah a a em a a a dd al odd odd end od ad oe edd TTT 


RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


GLOBAL routine Q10_FUNC : novealue = 


> 


THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE I/O FUNCTION (OPCODE) 
T OR QIO PAIR. THE FUNCTION - DE TERMINED 


O BE USED FOR THE CURRE NT QI0 OR 
BY THE FOLLWING ALGORITHM 


cen CHOSEN UNIT IS PROTECTED 
TION = READ 


FUNC 
ELSE CUNO TER TED) 
Ae TE (WRITE OR READ) IS BASED ON A RANDOM 


COMPARES AT THE fi 
THE FIRST aro. THEN A “READ” OPCODE Is 


LOADE 
PACKET. OTHERWISE, THE SECOND MSCP PACKET IS RETURNED TO THE POOL. 


VAX-11 Bliss-16 V4.1-562 
DISK $USER2: [MLYNAR . ZRQ)ZRGAHO.BL2;3 


'MMM! PERIODIACLLY, THIS ROUTINE WILL CALL THE DUP ROUTINE le IT 
'MMM! BEGINS ITS OWN TASK. IF THE OPERATOR HAS SELECTED, “ALSO R ZZZ 
'MMM! DUP EXERCISER, ” THEN DUP TESTING OF DBNS WILL BE INTERLEAVED ZZZ 
= Prar ® WITH THE REGULAR MSCP TESTING OF THE LBNS. ZZZ 
'MMM ! TO AVOID LONG, CUMULATIVE INIT TIMES, THE DUP CODE IS ONLY ZZZ 
MMM! EXECUTED AFTER (25 TIMES D'JPROUND ) MSCP I/0's HAVE BEEN DONE. 777 
'MMM! THE DUMBER OF DUP I/0’s IS ‘DUPROUND’. THIS GIVES US A 25 TO 1 ZZZ 
hawt: INTERLEAVE. ZZZ 
MMM THE OUP TESTING IS DONE BY EXECUTING CONTROLLER LOCAL PROGRAMS ZZZ 
'MMM! TO READ OR WRITE/READ DBNS. AFTER THE DUP TEST ING, THE CON- Z2ZZ 
'MMM! TROLLER IS we AND QIO_FUNC ROUTINE CONTINUES FROM ZZZ 
'MMM! WHERE IT LEFT OFF ZZZ 
'MMM! 
: en eg t E 
: T_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
: EOOFF - CURRENT UNIT CST OFFSET 
£ 
: IMPLICIT OUTPUTS: 
: THE OPCODE FIELD OF ONE OR BOTH MSCP PACKETS IS LOADED. 

begin 

local 

FUNC $ word, 
INDEX : word; 


rea DUOFF = .CUOFF; ‘Lert 
!MMM IF (C.CST_ADDR [.DUOFF + OF _COUNT, D_COUNT) LEQ 0) AND !MSCP CNT=0 


OPCODE CREAD OR WRITE) 
UNIT NO. 2ZZ 


ey IN CASE OTHER CMDS 22Z 
N QUEUE Z 


SEQ 4 


_-- a a a ee a tears 


SEQ 0370 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 age 107 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. ZRQ)ZRQAHO.BL2;3 (25) 
; 4164 2 ‘MMM (.CST_ADOR c. -DUOFF, D_TYPE) NEQ@ RX_SO) AND 'FIXED DISK 22Z 

; 4165 2 ‘MMM ¢.CST_ADDR [.DUOFF + OF_DUPFLAGS, NODUPMEDIA] NEQ 1)) !MEDIA IN 22Z 

; 4166 2 ‘MMM 'ZZZ 

; 4167 2 ‘MMM T 1222 

; 4168 2 ‘MMM BEGIN '22Z 

; 4169 2 Relate PUT _PKT (.MX2); 'RETURN 2ND ENVLOPE '22Z 

: 4170 2 "MMM MX2 = ats ‘INDICATE FAILURE 2ZZ 

; 4171 2 ialale! ¢ ‘D0 DUP TEST 222Z 

; 4172 2 "MMM CST -ADDR ce ;DUOFF + OF COUNT, D_COUNT]) = 'REINIT MSCP FUN- 2ZZ 

: 4173 2 ‘MMM * .DUPROUND); 'CTION COUNTER 22Z 

; 4174 2 "MMM 1Z2Z 

; 4175 2 MMM : THE FOLLOWING REINITS 2 ENVELOPES, SO THAT THE MSCP EXERCISER ZZZ 

: sis 2 : MP : CAN PROCEED AS BEFORE THE DUP EXERCISER WAS CALLED. 222 

i ‘MMM ! 

: 4178 2 ‘MMM FLAGS = .DUP_FLAGS OR SWP_DINT; 'SET DUP INIT FLAG Z2Z 

:; 4179 2 ‘MMM ONT TEST 0); ‘REINIT CONTROLLER 222 

, 4180 2 MMM OUP_FLAGS = .DUP_FLAGS AND (NOT SWP_DINT); ‘CLR DUP INIT DLAG 322 

i 'MMM 

; 4182 2 MMM MX2 = -1; ‘ASSUME NO 2ND ENVELOPE 777 

; 4183 2 “MMM IF (MX1 = GET_PKT (.CCTLR)) LSS 0 !'TRY FOR 1ST ENVELOPE 2ZZ 

; 4184 2 ‘MMM OR (.EOP_FLAG) ‘IF FAILURE 22ZZ 

; 4185 2 MMM THEN RETURN; !NO POINT TO GO ON 222 

; 4186 2 MMM IF (MX2 = GET_PKT (.CCTLR)) LSS O TRY FOR 2ND ENVELOPE 222 

; 4187 2 MMM OR (€.E0OP_FLAG) VIF FAILURE ZZZ 

>; 4188 2 "MMM THEN BEGIN 'Z72Z 

; 4189 2 MMM PUT_PKT (.MX1); '!PUT 1ST BACK IN POOL 2ZZ 

; 4190 2 'MMM MX1 = -1; ‘INDICATE FAILURE 22Z 

; 4191 2 'MMM RETURN; ‘DONE 222 

; 4192 2 ‘MMM END; :ZZ2 

$ 4193 2 'MMM §ZZZ 

; 4194 2 'MMM MAD1 = MSCP_PKT + (.MX1 # PKT_LEN * 2); !CALC START ADDR 7222 

; 4195 2 "MMM MAD2 = MSCP_PKT + (.MX2 # PKT_LEN « 2); ‘OF BOTH ENVELOPES 272 

; 4196 2 ‘MMM GET_RANDOM (); !GET SET OF RANDOM NOS 7222 

: 4197 2 "MMM QIO_UNIT (); 'PUT RAND UNIT NO IN 22Z2Z 

>; 4198 2 'MMM END; ‘ENVELOPES 222 

: 4199 2 'MMM '27Z7Z 

$ 4200 2 

; 4201 2 'MMM! MSCP CODE STARTS HERE 2ZZ 

; 420s 2 "MMM ! 2ZZ | 

; 

, 4208 2 INDEX = .CST_ADOR [.CUOFF + OF _DATA, D_DISK_NUM); !POINT TO TYPER + TYPEW FOR THIS UNIT 227 
; 

; 4206 2 CST_ADOR (.CUOFF + OF_COUNT, D_COUNT]) = ' 222 

: 4207 2 ST_ADOR [.CUOFF + OF_COUNT, 

; 4208 2 0_COUNT)~-1; 'DECR MSCP FUNCTION CNTR 227 

; 

; 4210 2 MAD2 [OPCODE) = 0; ! ASSUME 2ND PACKET NOT NEEDED 
; 

; 4212 2 if €.CST_ADDR [.CUOFF + OF _DATA, D_PROT) eql UNPROTECTED) and ! IF “FORCED ERROR" SET IN LAST READ. 
; 4213 2 (.CST_ADOR [.CUOFF + OF_DATA, D_TYPE] eal FIXED) and ' REWRITE SAME BLOCK 
: 4214 3 ( -FORCED_ERROR) 

: 4215 2 hen 

; 4216 2 FUNC = OP_WRT 


eT Se me ew 


A 


re — ee ee ae 


SPS SPASMS OOH ROMO HE HHO OSHS SHH ROO wSeeeoanwretoeecdocnue 


eee 
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else 


eal noe (.CUOFF + OF _DATA, D_PROT) eql PROTECTED 


FUNC = OP_RD 
else 
'MMM if €.RANDOM [1] and 1) 
then 
'MMM FUNC = OP_RD 
'MMM else 
'MMM FUNC = OP_WRT; 


ao -BAL_IN_PROGRESS [. INDEX) 
IF (.RANOOM [1] AND 1) 
THEN 


LSE 
IF _ .FORCE_WR [ . INDEX) 
THEN 
FUNC = OP_WRT 


ELSE 
FUNC = OP_RD; 


if (MAD1 [OPCODE] = .FUNC) eql OP_WRT 
then 


in 
MABL CCMD_TYPE] = NON_SEQ_CHD; 
if BIT_TST (SWP_FLAGS. SWF_CWC) 
hen 


t . 
MAD1 (MODIFY) = MD_CMP 
else 


if BIT_TST CSWP_FLAGS, SWF _HWC) 
then 


in 
nabs MODIFY) = MD_EXP; 
MAD2 [OPCODE) = OP_RD; 
MAD2 (MODIFY) = MD_EXP; 
MAD2 (CMD_TYPE] = NON_SEQ CMD; 
end; 
end 
else 


in 
MAB, CCHD_TYPE} = NON.SEQ_CHD; 
if BIT_TST (SWP_FLAGS, SWF_CRC) 
then 
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SEQ 0371 
VAX-11 Bliss-16 V4.1-5862 P 
DISK $USER2: (MLYNAR . ZRQ)ZRGAHO.BL2;3 


IF UNIT IS PROTECTED 
SET FUNCTION TO READ 


USE 2ND RANDOM NUMBER TO SELECT 
READ 
WRITE 


LOAD CHOSEN OPCODE. IF WRITE 


NON-SEQUENTIAL COMMAND 
IF CONTROLLER DOES WRITE-COMPARES 
ADD COMPAST MODIFIER 


IF HOST DOES WRITE-COMPARES 


NON-SEQUENTIAL COMMAND 
IF READ-COMPARES - FUNCTION IS READ 


— .ee eeewewe ~~ eee oe ee oe 


—_— ee ee ee 


ae - —_—_ -—-_ 


ta 


pf 
~ 
~ 
Ww 
MN Wun Ww 


004137 
013702 
006302 
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MAD1 (MODIFY) = MD_CMP; 
end; 


if .MAD2 ([OPCODE) eal 0 
then 
por p PKT €.MX2); 
MX2 = -1; 
end; 
end; 
000000G QIo. “FUNC: 
000000G MOV 
ASL 
000000G ADD 
MOVB 
177760 BIC 
MOV 
ASL 
ADD 
000022 DEC 
000116' MOV 
000022 MOV 
ADD 
CLRB 
TST 
BPL 
000020 BITB 
BEQ 
000001 000000G A 
100000 i$: BIT 
BEQ 
ASL 
000001 000000G +3 
000001 000002G BIT 
ot 
000001 000000G 2s zen 
000042 3$: - 
000041 4$: MOV 
000114’ 5$: MOV 
MOV 
000022 MOVB 
000042 CMP 
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R1, $SAVE4 
CUOFF ,R2 


(R2) 


R 
ye lla 


177760,RO 
CUOFF .R 


#1,FORCED .ERROR 
#100000, (R2) 
&$ 


RO 
aoe IM. PROGRESSERO ) 
@1,RANDOM+2 


3% 


AS 
+ lil amma 


642,R2 
S$ 
#41 ,R2 


MAD1,RO 
SWP ..FLAGS ,R3 


R2,22(RO) 
R2, 042 


SEQ 0372 
VAX-11 Bliss-16 V4.1-562 Page 10 
DISK S$USER2: (ML YNAR . ZRQ)ZRQAHO.BL2;3 08 25) 


! ADD COMPARE MODIFIER 
! IF NO OPCODE IN 2ND PACKET 


! RETURN 2ND PACKET TO POOL 
! MARK IT UNUSED 


! ROUTINE QIO_FUNC 


-SBTTL QIO.FUNC MULTI-DRIVE TEST ROUTINES 


«, FUNC 
«, FUNC 42 


FUNC, # 
FUNC, @ 


WN 


——— eee 


i foutine Size: 
: Maximum steck 
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000002 000004 6$: 
040000 000024 pad 
000112’ 
177777 000112’ 

9%: 


i104 words Ps 
depth per invocation: 7 wor 


Routine Base: 


10-Oct-1985 09:41:47 
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6$ 
82,4(RO) 
#20, 3 
040,R3 
8s 
#-100000, 24(RO) 
°41,(R4) 
@-100000, 24(Ri) 
@2,4(R1) 
8$ 
#2,4(RO) 
64 ,R3 
8$ 
40000, 24(RO) 
(R4) 
9$ 
MX2, -(SP) 
PC, PUT .PKT 
(SP). 
PC 


$CODE$ + 13626 


VAX-11 Blies-16 V4.1-5 


82 
DISK $USER2: [MLYNAR . ZRQ)ZRQAHO.BL2;3 





ss lll eee ce ete ee ee - - 


OOO ee ee ee ee be ee bee bee ee ee ee ee be ee ee ee en en ee ee ee ee ee pen peo 


-— ——— or ee EE EE — SE a a 


SEQ 0374 


RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 Pege 111 
MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: (ML YNAR . ZRQ)ZRQAHO .BL2; 3 (26) 
!MMMGLOBAL ROUTINE DUP : NOVALUE = !Z2ZZ 


'MMM ! « 
Mr! THIS ROUTINE IS CALLED BY QIO_FUNC AFTER 25 « ' 


!Z72Z 
DUPROUND' RD/WTS. 222 
:MMM: THIS EXERCISER WAS PLACED IN THE MIDDLE OF THE MSCP EXERCISER, 222 


a SO COMMON INIT OTHER ROUTINES COULD BE USED. TE 
'MMM? THE DUP po ay Eo WILL PERFORM EITHER READ-ONLY, OR WRITE-READ- 222 
!MMM: COMPARE OPERATIONS ON THE DIAGNOSTIC BLOCKS (OBNS). IT WILL Z2ZZ 
aaa RECORD THE STATISTICS IN THE TALLY TABLES. a35 
!MMM! THE PROGRAM USES CONTROLLER ~ a PROGRAMS TO WRITE AND READ ZZZ 


‘MMM!  OBNS. WHEN WRIT ONE 
ceed s SELECTED AND REPLICATED THROUGH" A 256 
‘MMM! THE ROUTINE WILL WRITE *DUPROUND 

‘MMM! BLOCKS. IF THE CONTROLLER LOCAL PR 
'MMM! SELECTS ‘WRITE TO DIAGNOSTIC AREA’. wR 
!MMM! PERFORMED ON THE DONS. OTHERWISE, READS WITH NO COMPARES W 

S FOUND IN THE COMPARISON TESTS WILL NOT BE LIST- 2272 





!MMM! DONE. BAD BLOCK 

rem: = ED IN THE RCT TABLES. Zz 
!MMM! AFTER ‘DUPROUND’ NUMBER OF DBNS HAVE BEEN TESTED THE ENVELOPES 222 
!MMM! WILL BE REINITIATED, SO THAT THE MSCP EXERCISER CAN CONTINUE 222 
‘MMM! AS BEFORE. 222 
eal 222 
‘MMM! IMPLICIT INPUTS: 222 
Taal CCTLR - CURRENT CONTROLLER NUMBER 222 
Lee | EST-ADDRS CONTAINS THE CURRENT CONTROLLER zzz 
‘MMM * 

aad CUOFF - CURRENT OFFSET IN CST TABLE FOR 222 
“ee | PARTICULAR DRIVE 222 
* MMM # 222 
!MMM! IMPLICIT OUTPUTS: 222 
Tae 

pan | 222 
‘MoM | 12272 
‘MMM # - 1222 


| 
S_PATTERN - PATTERN BEING WRITTEN TO DBNS 222 


Lt ee 


eee 









2 RD/RX EXERCISER 
vo2.3 MULTI-ORIVE TEST ROUTINES 
; 4320 1 ‘MM 
; 4321 1 
: 4322 1 
; 4323 1 'MMM BEGIN 
$ 4324 1. as a} 
; 4325 1 en a] TEMP : WORD; 
: 4326 1 
| 3 4327 1 'PRINTX (06M110); 
L 4326 i 'PRINTX (DERIO); 
ls 4329 1 
1 8 4330 i funtil ¢€.CRN_LOW eqlu .RP_ADOR [CRF_LO)) or 
ly 4331 1 : € .E0P “FLAC © eql true) do 
l 3 4332 1 ' begin 
3 4333 i : v4 ™ 
: 4334 i : PROC TPKTC ); ' 
; 4335 1 : RP -ThOX = .RP_I INDX ° ext? ! INCREMENT RP 
P 4336 1 : if gBP ,TNOX X geo RP -EN 
s 4337 1 ‘ RP _ADOR T « (.RP_INDX « RP_LEN « 2); 
; 4338 1 ' RP 
: 4339 1 
5 4340 i 
5 pt rt : 'S_PATTERN = .RANDOM [1); 
$ 342 
5 4343 1 :iF (.CST_ADDR [.DUOFF + OF _DBN. D_DBN) + .dupround) GEQ@ 144 
, penn 3 'THEN CCST_ADDR [.DUOFF + OF _DBN, 0_DBN) = 0); 
: 
: 4346 1 *DUPIDLE ( 
; 4347 1 
$ 4346 1 
F 4349 1 : TEMP * .CST_ADOR [.DUOFF + OF _DBN, D_OBN); 
; 4350 1 'INCR DBNCNT FROM (TEMP > "1) TO (. TEMP + .dupround) DO 





5 1 BEGIN 

’ 1 IF .CST_ADDR [ .DUOFF + OF _DBN, OUPWRITE) 
N DBN’S 

; 1 $ THEN 

$ 1 ' BEGIN 

te 1 ! DUPIOLE (); 

4356 1 : DUPWRTDBN (); 

; 4357 1 : END; 

’ 43568 1 

: 4359 1 : DUPIOLE (); 

: rt ty : : DUPREDDBN (); 

: 

: 4362 i : CST_ADOR [.DUOFF + OF _DBN, D_DBN) = .CST_ADOR 
’ Ss a 1 ! IF .CST_ADDOR [.DUOFF + OF _DBN, D_DBN) 

: ris 1 : THEN 

5 oF 1 : CST_ADDR [.DUOFF + OF _DBN, D_DBN) 

; 4366 1 

$ 4367 i 

’ 4366 i 

: 4369 i : IF .€ST_ADOR [.DUOFF + OF _DBN, DUPERROR) EQL i 
; 4370 1 : THE!., RETURN; 

: 4371 1 : $ 

r 4372 1 'END; 


T then (RP_INDX = 0;); ! MAKE SURE THE COUNTER DOES NOT GET TO BIG 
ADDRESS 


SEQ 0375 
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Li 
10-Oct-1985 09:21:16  DISK$USER2: 


! TO ENSURE THAT ALL RETURN MESSAGES HAVE a PROCESSED 
: Make sure all MSCP commands ere completed 


! BREAK FOR ACT 
! PROCESS Te hee TO SEE IF OK FOR DUP 
! CALCULATE RETPKT 


!OTHER UNIT VARIABLES 


: TEST TO SEE IF NEXT DBN’S TO LARGE 
! CIRCLE ARROUND IF DBN TO LARGE 


GET DUST STATUS TO FIND IF LOCAL DUP MEDIA 


ee we ~ 


! DO A 
IF .CST _ADOR (.DUOFF + OF _DBN, NODUPMEDIA) EQL 1 THEN RETURN; ! IF DUP LOCAL MEDIA NOT THERE THEN RETURN 


! INCREMENT FROM RELATIVE DBN TO 


: IF WRITE FLAG SET IN CST TABLE T 


: MAKE SURE THE CONTROLLER IS IN AN IDLE ST 
* CALL ROUTINE TO HANDLE WRITTING ROUTINES 
: MAKE SURE CONTROLLER IN IDLE STATE 

! CALL ROUTINE TO HANDLE READING DBN‘S 


DUOFF + OF _DBN, D_DBN) + 1; ! a get HELATIVE DBN COUNT 
{BUT NOT MORE THAN MAX NUMBER 


‘IF BIGGER THAN MAX 


> ~@ ‘MAKE IT ZERO 


: ERROR IN DUP REINITIALIZE 
! AND RETURN 


ZRQAMS 
vo2.3 


; 4373 1 
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VAX-11 Bli 
DISKSUSER2: 


SEQ 0376 
“16 V4.1 Page 
MLYNAR. tae} ZROAHO. 8L2;3 ¢ 


Oo oe eo he he be be be be be pe be bo pe pe pe pe PO ee ee ee be ee be he be ee be be be ee ee he ee be ee he he pe be 


RD/RX EXERCISE 


R 
MULTI-ORIVE TEST ROUTINES 


!MMMGLOBAL ROUTINE DUPWRTDBN : NOVALUE = 


+ 


COMMUNICATE WITH THE CONTROLLER. THE 


WHILE RUNNING THE 
DUP BUFFER. (EX. ILLEGAL UNIT 


PROGR 
THE WORD IN “S_PATTERN” IS WRITTEN TO THE 256 WORDS IN T 
CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN 
NUMBER, ILLEGAL BLK @, DEVICE ERROR, 
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DISK $SUSER2 


nas ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM 
WRTOBN”. TO THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL IS USED TO 
AM lS a tan tr tee BLOCK (DBN) 


N ERROR = 
ZERO LENGHT MSG) 


- aye THE CURRENT CONTROLLER STATUS TABLE 
IN CST TABLE FOR PARTICULAR DRIVE 


MAXIMUM NUMBER OF RETRIES BEFORE ERROR 


!START OF DUP WRITE RETRY LOOP 


INCREMENT @ OF WRITES GIVEN 
‘ZERO TRY COUNTER 


: 
; 
: 
‘ 
* 
: IMPLICIT INPUTS: 
: CST_ADORS 
H & - CURRENT OFFSET 
' S_PATTERN - CONTAINS PATTERN WORD! - 
*BEGIN 
'LOCAL ' 
‘ TRYNUM : WORD, 
: MAX_TRY_COUNT : word initial (9); : 
‘LABEL : 
: DUP _WLOOP ; ' 
ety ok COER21). 

-ADDR (T_DBN_WT) = .T_ADDR [T_DBN_WT? «+ 1; ! 
!TRYNUM = O; 
s OOP: 


‘BEGIN : 
‘INCR TRIES FROM 1 TO 10 DO 
‘BEGIN 


!MSCP_PKT [.MX1, MSGLEN) = SZ_ELP; 


‘LABEL FOR LOOP EXCAPE ON GOOD WRITE 


‘BEGIN DUP _WL 
‘START TRYING DUP WRITES 
‘BEGIN LARGE DO LOOP 


PACKET SIZE 


VAX-11 Bliss-16 v4. 
2: (MLYNAR .ZRQ)ZRGAHO.BL2;3 


'MSCP_PKT [.MxX1, OP'CODE } = OP_ELP; ' OPCODE = EXECUTE LOCAL PROGRAM 
'MSCP_PKT [ .MxX1, L a) = gascii'W'; ! FILL IN PROGRAM NAME WITH ASCII LETTERS 
'MSCP_PKT MX1, L2]) = sascii’R’ 

'MSCP_PKT [.MX1, L3]) = sascii'T’; 

!MSCP _PKT 1. 4) = sdascii‘D’; 

'MSCP_PKT MX1. LS] = sascii'B’; 

'MSCP _PKT 1, L6) = x Hie ; 

'MSCP_PKT [£ .MX1, MODIFY] = ! STANDALONE MODIFIER 

'Z2Z2 ASCP_PKT [ .MXx1, nSGTYP] = IMM_CMD; ' CALL IT IMMEDIATE 

‘MSCP_PKT [.MX1. MSGTYP] = MT_SEQ; * CALL ALL DUP CMDS SEQUENTIAL. 

'‘DUPCOMMAND (); ' SENDS AND RECEIVES THE COMMAND 

‘IF .CST_ADDOR [.DUOFF + OF _DBN., DUPERROR] EQL 1 ‘status error 

‘THEN RETURN; ' AND RETURN 

"DO (MX1 = GET_PKT (.CCTLR)) 

‘UNTIL (.MX1 GEQ 0); ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 
' MSCP_PKT (.MX1, MSGLEN) = SZ_REC; ' PACKET SIZE 

: MSCP PKT [.MX1, OPCODE] = OP_RCD; ' OPCODE = RECEIVE DATA 


1-562 


EXECUTE LOCAL PROGRAM WRT DB 


ZZZ 


RECIEVE DATA 


oo. ose =e - 


aaa a hh a eh hd a do ed deed ddd added Te ~ 


RD/RX EXERCISER 
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MSCP_PKT (.MX1, BC_LO) = 80; 
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SEQ 0378 
VAX-11 Bliss-16 v4.1-562 ege 115 
DISK SUSER2: [ML YNAR .Z7RQ)ZROAHO.BL2;3 (28) 


BYTE COUNT TO BE TRANSFERED EQUALS 2 ssesee pg 26 of DUP s 


MSCP_PKT [.MX1, BUF_O) = DUPPKT; ' LOAD DESCRIBTOR BUFFER 
MSCP_PKT [.MxX1, MODIFY) = 0; : 
MSCP_PKT [.MX1, MSGTYP) = SEQ CMD: ' CALL IT sequentiel 
MSCP_PKT [.MX1, MSGTYP] = MT_5SEQ;_ ' CALL ALL DUP CMDS SEQUENTIAL. 227 
DUPC (); ' SENDS AND RECEIVES THE COMMAND 
IF C. cst ,ADOR ¢ OF __DBN, DUPERROR] EQL 1) OR 'stetus error 
KT (oupTYPE) NEQU™ 1) OR !'dup type error 
c: eer NEQU 6) 
(0_ nA 1; r ‘TELL HARD_ERROR IT WAS A DUP PROBLEM 222 
; 4 
DO FAIL = O; ' 222 
cot’ ADDR [.DUOFF + OF __DBN, DUPERROR] = 1; ' SET FLAG 
RETURN; ); ' NO POINT IN CONTINUING 
DO (MX1 = GET ~ ,f- CCTLR)) 
UNTIL (.MX1i GEQ ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 
_PKT (.MX1, ee = SZ_SEN; ' PACKET SIZE SEND DATA 
OPCODE) = OP _SDD ' OPCODE = SEND DATA 
BC_LO) = 6; ‘ BYTE COUNT TO BE TRANSFERED EQUALS 6 
BUF 0} = ' LOAD DESCRIBTOR BUFFER 
= .€ST_ADDR DUOFF D_DISK Nun 5 ‘LOAD UNIT NUMBER (RDORX) 
2 “Est ADDR [.DUOFF + OF _DBN, D BBN); ' LOAD DBN NUMBER 
iy) oo LOAD PATTERN 
= ; : 
feetye = SEQ CMD ' CALL IT sequential 
MSGTYP] = MT . ' CALL ALL DUP CMDS SEQUENTIAL. 22Z 
! SENDS AND RECEIVES THE COMMAND 
IF .CST_ADDOR [.DUOFF + OF _DBN, DUPERROR] EQL 1 ' stetus error 
THEN RETURN; 
DO (MX1 = GET_PKT so CCTLR)) 
UNTIL (.MX1 GEQ O ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 
MSCP_PKT ; ah. om mSGLEN = 4 _REC; ! PACKET SIZE RECEIVE DATA 
MSCP_PKT [.MX1, OP _RCD; ' OPCODE = RECEIVE DATA 
MSCP_PKT f -0tR. BC 10) = fog ! BYTE COUNT TO BE TRANSFERED EQUALS 4 
MSCP_PKT [.MX1, BUF_O) = DUPPKT; ' LOAD DESCRIBTOR BUFFER 
MSCP_PKT [.MX1, MODIFY) = 0; : 
MSCP_PKT [.MX1, MSGTYP) = SEQ CMD; ' CALL IT sequenti ot 
MSCP_PKT [.MX1, MSGTYP] = mT_5EQ; * CALL ALL DUP CMDS SEQUENTIAL. 22Z 
DUPCOMMAND (); ' SENDS AND RECETVES THE COMMAND 
IF €.CST_ADDR [.DUOFF + OF _DBN, DUPERROR] EQ@L 0) AND 'IF status OK AND 2zzZ 
(.DUPPKT [DUPTYPE] EQL 3) AND NO dup type error 2ZZ 
( .DUPPKT [DUPHESG } EQL 3) AND ' 2ZZ 
(.OUPPKT [DUPBF1) EQ@L 0) : AND A successful write code <a4 


a ee 


o—] <a ee oe 


SE eee 


ZRQAM3 
vo2.3 


RDO/RX EXERCISER 
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: THEN 

$ LEAVE DUP_WLOOP 

$227 siccesee sees sees eeesesesate 
ELS 


IF (.DUPPKT ere EQ@t S0003) AND 
(.DUPPKT [DUPBFi) EQL 2) 


LEAVE OUP _wLOOP 
'Z7ZZ BOSC CC CCSOC CCS C eee eee eee eee eee eee ee 


1 
1 

1 

1 

1 

1 

i 

1 

i 

1 

1 

1 ' 

1 ' BEGIN 

1 ‘ TRYNUM = .TRYNUM «+ 1; 

1 ' IF .TRYNUM EQL .MAX_TRY_COUNT 
1 ' THEN 

1 ' (D_FAIL = 1; 

i ' HARD _ERROR (); 

1 ' O FAIL = O; 

1 ' CST_ADOR [.DUOFF + OF _DBN, 
1 ' RETURN; ); 

1 ' END; 

1 ' END; 

l ’ 

1 ‘END; 

i 

1 ‘DO (MX1 = GET_PKT if CCTLR)) 

, fUNTIL ¢ .MX1 GEQ 0 

1 iT_ADDR (T_BLK_WT) = .T_ADOR [T_BLK_WT] + 1; 
1 ' 

1 ‘END; 
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‘THEN 222 
11/0 OK. EXIT RETRY LOOP. 222 
'Z72Z 
‘IF OBN IS OUT OF RANGE 222 
{WD 0 = 2 FOR OUT OF RANGE STATUS. 72Z 
THEN 222 
 VEXIT RETRY LOOP. 722 
' 222 
; 22Z 
'INCR ATTEMPT COUNT 222 
‘IF IT FAILED ALL RETRIES, THEN 2272 
‘REPORT THE ERROR. 222 
TELL HARD_ERROR IT WAS A DUP PROBLEM zzz 
222 
DUPERROR] = 1; SET FLAG 222 
! NO POINT IN CONTINUING zzz 
END LARGE DO LOOF Z2Z 
‘END DUP_wWLOOP 222 


! TRY TO GET AN ENVELOPE. 
‘INCREMENT COUNTER IF A SUCCESS 


=e core 
DISK SUSER2: [ML YNAR. 7RO)ZROAHO. BL2;3 


— ee oe Se er ee eee 


eee eee 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [MLYNAR . ZRQ)ZROAHO.BL2;3 
; 4513 1 {GLOBAL ROUTINE GUPREDDBN : NOVALUE = 

_— - oa 

: id 

>; 4516 1 * THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM 

; 4517 1 * “RE TO USE THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL IS USED TO 

; 4518 1 : COMMUNICATE WITH THE CONTROLLER. THE PROGRAM READS A DIAGONOSTIC BLOCK (DBN) 

; 4519 1 : AND PLACES IT IN THE DUP BUFFER CALLED “DUPPKT”. IF AN ERROR OCCURS WHILE 

; 4520 1 ! RUNNING THE CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE 

; 4323 3 : DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK @, DEVICE ERROR, ZERO LENGHT MSG) 

; H 

$ 4523 1 : 

; 4524 i ‘ IMPLICIT INPUTS: 

; 4525 1 : CST_ADDR - CONTAINS THE CURRENT CONTROLLER STATUS TABLE 

; aaes : : DUOFF - CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE 

; 3 

: 4526 1 'BEGIN 

: 4529 1 LOCAL ' 22Z 
; 530 i ' TRYNUM : WORD, ' Z2ZZ 
; 4232 3 ' MAX_TRY_COUNT : word initial (9); ,! MAXIMUM NUMBER OF RETRIES BEFORE canon ta? 
; oO 

; 4533 1 "LABEL ! 22ZZ 
; 4534 1 ' DUP _RLOOP; ‘START OR DUP READ RETRY LOOP 272 
3 4535 1 

$ 4536 1 

; 4537 1 'PRINTX (DER12); 

, 4338 i !T_ADOR [T_DBN_RD) = .T_ADDR [T_DBN_RD) + 1; ! INCREMENT @ OF READS GIVEN 

i 

; 4540 1 *TRYNUM = O; 'ZERO TRY COUNTER ZZZ 
; 4541 1 ! OUP RLOOP : "LABEL FOR LOOP EXCAPE ON GOOD READ 2ZZ 
; 4542 1 ‘BEGIN 'BEGIN OUP_RLOOP 2ZZ 
; 4543 1 'INCR TRIES FROM 1 TO 10 DO 'START TRYING DUP READS ZZZ 
; 4544 i *BEGIN ‘BEGIN LARGE DO LOOP 222 
; po oe : : Z2ZZ 
; 

; 4547 1 ' MSCP_PKT f .mX3. een) = SZ _ELP; ! PACKET SIZE EXECUTE REDOBN PROGKAM 
; 4548 1 ! MSCP_PKT [.MX1, OP_ELP; ' OPCODE = EXECUTE LOCAL PROGRAM 

; 4549 1 ' MSCP_PKT [.MX1, L1]} = Sascii7R’; ! FILL IN PROGRAM NAME WITH ASCII LETTERS 

; 43550 1 : MSCP_PKT [.MX1, L2) = sascii‘E'; 

; 4551 1 ! MSCP_PKT [.MX1, L3] = sascii'D’; 

; 4552 1 ' MSCP_PKT [.MX1, L4] = sascii'D’; 

$ 4553 i ! MSCP_PKT [.MX1, LS] = Sascii'B'; * 

; 4554 1 ! MSCP_PKT [ .MX1, = Leow ahs 

; 4555 1 : T {.MX1, MODIFY] = ' STANDALONE MODIFIER 

; 4556 1 'ZZZ MSCP_PKT [.MX1, HSGTYP] = IMM_CMD; ! CALL IT IMMEDIATE 

; 4557 1 ! MSCP_PKT [.MX1, MSGTYP] = MT_SEQ; ' CALL ALL DUP CMDS SEQUENTIAL. 222 
; 4338 i DUPCOMAAND (); ! SENDS AND RECEIVES THE COMMAND 

$ 3 

; 4560 1 ! IF .CST_ADDR [.DUOFF + OF _DBN, DUPERROR] EQ@L 1 ‘status error 

; 4561 1 ' THEN RETURN 

; 4562 1 

; 4563 1 ' DO (MX1 = nyse PKT (.CCTLR)) 

; 4368 i * UNTIL (.MX1 GEQ 0); ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 


SEQ 0380 
117 


a Ol 


rere ee ttn seen a 


ee | ee ee ee 


~— -———— ee 


SEQ 0361 
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: 4566 1 ‘ MSCP_PKT [.MX1, msGL EN z SZ _REC; ! PACKET SIZE RECIEVE DATA 

; 4567 1 ' MSCP_PKT [{.Mx1, OP OP_RCD; ' OPCODE = RECEIVE DATA 

>; 4568 1 : MSCP_PKT [.MxX1i, BC Oh 2 "80; ! BYTE COUNT TO BE TRANSFERED EQUALS 2 seesesee pg 26 DUP sp 
ec 

; 4569 1 ' MSCP_PKT [.MX1, BUF_O) = OUPPKT ! LOAD DESCRIBTOR BUFFER 

; 4570 1 ' MSCP_PKT [.MxX1, MODIFY) = ' 

; 571 1 '2ZZ MSCP_PKT (.MX1. MSGTYP} = Sa CMO; ' CALL IT _ Sequent i al 

; 4572 1 ' MSCP_PKT [.MX1, MSGTYP) = MT_SEQ; ! CALL ALL DUP CMDS SEQUENTIAL. 222 

‘ 4373 i ' DUPC (); : SENDS” AND RECEIVES THE COMMAND 

| 

: 4575 1 : IF €.CST_ADDR [ .OUOFF OF _DBN, DUPERROR) EQL 1) OR ‘status error 

s 4576 i ' ¢ {DUPBKT f T (DUBTYPE NEQU™ 1) OR 'dup type error 

t py 144 : : NEQU 55 

. é 

; 4579 i : (D_FAIL = 1; !TELL HARD_ERROR IT WAS A DUP PROBLEM 222 

; 45860 i : HARD_ERROR (); 

; 4581 1 ' D_FAIL = 0; 222 

; 4582 1 i CST’ ADDR ADDR (.DUOFF + OF_DBN, DUPERROR) = 1; ' SET FLAG 

: 4385 i ' RETURN; ); ! NO POINT IN CONTINUING | 
; } 
; 4585 1 O (MX1 = GET PKT af CCTLR)) | 
, anes : UNTIL (.MX1 GEQ ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR | 
i 

; 4586 i ' MSCP_PKT [.MX1, — = SZ_SEN; ! PACKET SIZE SEND DATA 
; 4589 i ' MSCP_PKT [.MX1, OPCODE) = OP_SDD; ' OPCODE = SEND DAT 
; 4590 i ' CP_PKT (.MX1, BC 8) = 4; ' BYTE COUNT TO BE TRANSFERED EQUALS 4 

; 4591 1 ' MSCP_PKT [.MX1, BUF_O] = DUPPKT; ‘ LOAD DESCRIBTOR BUFFER 

; 4592 i ' T 0) = .CST_ADOR [.DUOFF. D_DISK_NUM); ! LO T NUMBER (RDORX) 

; 4593 1 ‘ T Fi} = .CST_ADDR [.0UOFF + OF_DBN, D “08N}; : LOAD OBN NUMBER 

; 4594 i ' MSCP_PKT [.MX1, MODIFY] = 0; 

; 4595 1 ''27Z7Z MSCP_PKT Site MSGTYP] = SEQ CMD; ' CALL IT sequential 

; 4596 1 : MSCP_PKT [.MX1, MSGTYP] = MT_SEQ; * CALL ALL DUP CMDS SEQUENTIAL. ZZZ 

; 4397 3 ! DUPCOMMAND ( ' SENDS AND RECEIVES THE COMMAND 

; 

; 4599 1 ' ve Oe {.O0UOFF + OF _DBN, DUPERROR? EQL i ‘status error 

: 4600 i ' RETORee 

3 4601 1 

; 4602 1 ' DO cHxd = GET pay f CCTLR)) 

; 4603 i ' UNTIL (€.MX1 GEQ ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 

i 4604 

; 4605 1 ' MSCP_PKT [.MX1, msGl EN = SZ _REC; ! PACKET SIZE RECEIVE DATA 

; 4606 1 ' MSCP_PKT [.MX1, OP OP_RCD; ! OPCNGE = GET DUST STATUS 

; 4607 i ' MSCP_PKT ({.MX1, BC PO) = "5147 ' BYTE COUNT TO BE TRANSFERED EQUALS 512 

; 4608 i i MSCP_PKT [.MX1, BUF_O) = DUPPKT; ' LOAD DESCRIBTOR BUFFER 

:; 4609 1 ' MSCP_PKT [.MX1, MODIFY) = 0; ' 

; 4610 i '22Z MSCP_PKT [.MX1, MSGTYP] = SEQ_CMD; ! CALL IT sequential 

s 4611 i ! SCP _PKT [{.MX1, MSGTYP] = MT_SEQ; ' CALL AcL DUP CMDS SEQUENTIAL. 222 

; séi2 3 ' UPCOMMAND (); ' SENDS AND RECEIVES THE COMMAND 

: 

; 4614 1 t IF €.CST_ADDR [.DUOFF + OF _DBN, DUPERROR) EQL 0) we ‘IF status OK AND 222 

; 4615 1 ’ (.OUPPKT [DUPTYPE] EQL 6) AND NO dup type error 2ZZ 

; 4616 1 ' (.DUPPKT [DUPMESG) EQL 2) : 222 

; 4617 1 ' N ‘THEN 222 

: 4618 1 ' LEAVE DUP_RLOOP 'I/O0 OK. EXIT RETRY LOOP. 222 


- So ee oe 


—_ ere ee ee 


7 eos = 
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; ELSE 


——————— — _ —_ — ee - 


10-Oct-1985 09:41:47 VAX-11 ; 
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Li 
Re: 


‘ IF (.DUPPKT [ODUPBFO) EQ@L 50003) AND !IF OBN IS OUT OF RANGE 

‘! ie (.O0UPPKT (DUPBF1) EQL 2) - tu 0 = 2 FOR OUT OF RANGE STATUS. 
' LEAVE DUP_RLOOP TEXIT RETRY LOOP. 

'22Z SESE ECOCCSSSOC CCS C SSeS eee eEeeeEy 

: ‘ 

: BEGIN ‘ 

‘ TRYNUM = .TRYNUM «+ 1; ‘INCR ATTEMPT COUNT 

‘ IF .TRYNUM EQL .MAX_TRY_COUNT !IF If FAILED ALL RETRIES, THEN 

' THEN ‘REPORT THE ERROR. 

' (D_FAIL = 1; TELL HARD_ERROR IT WAS A DUP PROBLEM 
: a, C); 

: CST ADbr ADDR (.OUOFF + OF_DBN, DUPERROR] = 1; ! SET FLAG 

. RETURN; ); nd POINT IN CONTINUING 

! END; , _ !END LARGE DO LOOP 

‘END; “YEND DUP_RLOOP 


'DO (MX1 = GET PKT io CCTLR)) 
‘UNTIL (.MX1 GEQ 


!T_ADDR [T_BLK_RD) = .T_ADDR [T_BLK_RD) + 1; 
‘END; 


! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 


.1-582 Page 
ML YNAR . ZRQ)ZRGAHO.BL2;3 (29) 


‘IF DUP NO ERROR THEN INCREMENT COUNTER 


SEQ 0382 
119 


er OEE EEE 


—_—-—— se st 
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SEQ 0383 
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e 
‘GLOBAL ROUTINE DUPCOMMAND : NOVALUE = 


8s 

* THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS. 

! THE COMMAND ENVOLOPES ARE FILLED IN DUP ROUTINES IN THE “MX1” INDEX. 
! WITH THE INDEX THIS ROUTINE SENDS THE COMMAND, WAITS FOR A 

! RESPONSES AND THEN PROCESSES THE RETURN PACKET. 


!BEGIN 
!PRINTX (DER13); 


'MSCP_PKT [.MX1, CREDITS) = 0; ! DUP DOES NOT USE THE CREDIT SYSTEM 
'MSCP_PKT [_MX1. CONNID } = CID_DUP; ' MAKE PACKAGE EQUAL A COMM 

tMSCP_PKT [.MX1, DK_NUM] = 0; ! DISK NUMBER (NOT APPLICABLE) 

IF SEND (.MX1) EQLU FAILURE ! ATTEMPT SEND; IF CTLR IS OFFLINE 

' BEGIN 

‘ PUT_PKT (.MX1); 

‘ MX1-= -1; ! RETURN ENVELOPE TO POOL 

' CST_ADDR [.DUOFF + OF_DBN, DUPERROR) = 1; 

i PRINTF (0BM112); ! “DUP: PKT NOT AVAILABLE” 222 

tELSE 

3 in 

' AK; ! BREAK FOR ACT 

PROC_RETPKT Q); ! PROCESS RETURN PACKET TO SEE IF OK FOR DUP 

‘ until (.CRN_LOW eqlu .RP_ADDR [CRF_LO)) or ! TO ENSURE THAT ALL RETURN MESSAGES HAVE BEEN PROCESSED 
_ (.EOP_FLAG eql true); : or end of pass ceused by error 

M H 


eee 


-——— 


—— «= 
WOSK SSO SBVWSSQlFSOSF SFE ee@2Qeoeueesesaeeoanangnncce 
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MULTI-ORIVE TEST ROUTINES 


IGLOSAL ROUTINE DUPIDLE : NOVALUE = 
THIS ROUTINE IS CALLED BY DUP ROUTINE TO INSURE THAT THE CONTROLLER 


PKT 
'22Z MSCP_PKT [.MX1, MSGTYP] = IMM CMD; 


(MX1 = GET_PKT (.CCTLR)) 


end; 


! CALL IT IMMEDIATE 
MSCP_PKT [.MX1, MSGTYP] = MT_SEQ; ! CALL ALL DUP CMDS SEQUENT 
DUPCOMPAND "C C); ' SENDS AND RECEIVES THE COMMAND 
‘ONLY ERROR IS already in idle state 


00 
UNTIL (€.MX1 GEQ 0); : TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRGRAM ERROR 


382 
10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQ)ZRGAHO.BL2;3 


! IS NOT_IN A ACTIVE STATE. IF CALLED AND THE CONTROLLER IS IN AN ACTIVE 
! STATE THE CONTROLLER WILL GIVE AN ABORT COMMAND WHICH SHOULD KILL THE 
CURRENT JOB OR LOCAL PROGRAM 
‘BEGIN 
ics ST_ADOR [.DUOFF - OF_DBN, DUPERROR] = 0; !CLEAR DUP ERROR FLAG; 
!MSCP_PKT [.MX1, MSGLEN) = SZ_GDS; ' PACKET SIZE GET DUST STATUS 
'MSEP _PKT =X . OPCODE) = OP GDS; ' OPCODE = GET DUST STATUS 
'MSCP_PKT MODIFY = 0 ‘ 
'!22Z MSCP _P KT 1, Mo MSGTYP} = IMM_CMD; at CALL IT IMMEDIATE 
'MSCP_PKT [.MX1. HsetyP?” = MT_SEQ; ! CALL ALL DUP CMDS SEQUENTIAL. 222 
cies’ (); ' SENDS MAND RECEIVES THE COMMAND 
: ! GDS ONLY RETURNS SUCCESS or it don’t return 
!D0 (MX1 = TAPKT af CCTLR)) 
‘UNTIL (.MX1 feo ! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRGRAM ERROR 
a -CST_ADOR [.OUOFF + OF_DBN, D_ACTIVE) neq IDOLE ! if not in idle state then abort the program 
_PKT [.MX1, MSGLEN) = SZ_ABT; ! PACKET SIZE 
mSCP_PKT .MX1, OPCODE) = OP_ABT; ' OPCODE = ABORT PROGRAM 
MSCP .MX1, MODIFY) = 0; : 


. _— ——— ee ee eee 


RD/RX EXERCISE 


R 
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—_ EE _k-—cccse 


SEQ 0385 
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GLOBAL routine Q10_LBN : novelue = 


OTHERWISE 
TABLE (BST). 


THIS ROUTINE IS CALLED BY QIO_GEN "9 SELECT THE LOGICAL 
BE USED FOR THE CURRENT QI0O OR QIO PAIR. 


IF THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LBN IS 
RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR THE LBN. 


BLOCK NUMBER TO 


THE NEXT SEQUENTIAL LBN IS DERIVED FROM THE BLOCK SEQUENCE 


a, et 


- CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER 


IMPLICIT OUTPUTS: 
THE LBN IS LOADED INTO ONE OR BOTH MSCP PACKETS. 


begin 

_ LBNO_SAVE : word 
LBN1_SAVE : word 

local 
SO_TEMP : word, 
S1_TEMP : word, 
EO_TEMP : word, 
E1_ TEMP : word, 
ADDO_LBN : word, 
ADD1_LBN : word, 
LBNO : word, 
LBN1 : word, 
WINCHESTER : 

abel 

FINO_LBN; 


initial (0), 
initial (0); 


byte initial (byte (TRUE)); 


SO_TEMP = .CST_ADOR [.CUOFF + OF _BEG, D_8EGO); 
S1_TEMP = .CST_ADOR [.CUOFF + OF_BEG1, D_BEG1); 
EO_TEMP = .CST_ADOR [.CUOFF + OF _END, D_ENDO); 
E1_TEMP = .CST_ADDR [.CUOFF + OF_END1, D_END1); 


CST 


(. ADOR [ .CUOFF 
CBrT TST (SwP FLAGS. SWF 
¢ 


OP WAT) end 


in 
tBho- -FERO_LBN; 


F PbTa. 0.7 D aE} eql FIXED) and 


‘LO LBN SELECTED IN PREVIOUS PASS 
‘HI LON SELECTED IN PREVIOUS PASS 


! TEMPORARY STORAGE FOR START LBN LO 
! TEMPORARY STORAGE FOR START LBN HI 
: TEMPORARY STORAGE FOR END LEN LO 
: TEMPORARY STORAGE FOR END LBN HI 


: TEMPORARY STORAGE USED FOR COMPUTING DESIRED LBN 
: TEMPORARY STORAGE USED FOR COMPUTING DESIRED LBN 


LOGICAL BLOCK NUMBER LO 
: LOGICAL BLOCK NUMBER HI 
! FLAG TO INDICATE WINCHESTER DISK SELECTED 


! STARTING LBN LO 
! STARTING LBN HI 
! ENDING LBN LO 
! ENDING LBN HI 


!BEGIN A. 


"FORCED.ERROR) 
. mS Sarde a 


! IF “FORCED ERROR” DETECTED, REWRITE ERROR LBN LO 


ee ee 


ee — 


_—eem — <e -_— 


ee 
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MULTI-DRIVE TEST ROUTINES 
LBNi= .FERI_LBN; 
leave FIND_LBN; 
end; 


10-Oct-1985 09:41:47 
10-Oct-1965 09:21:16 


VAX-11 Bliss-16 V4.1-582 


DISK $SUSER2: [ML YNAR . ZPQ]ZRQAHO.BL2;3 


SEQ 0386 
4 
oe" (33) 


: IF “FORCED ERROR” DETECTED, REWRITE ERROR LBN HI 


pA -CST_ADOR [.CUOFF + OF _DATA, D_TYPE) eal REMOVABLE 
WINCHESTER = FALSE; 

if BIT_TST (SWP_FLAGS, SWF_RDM) 

then 


! IF RANDOM SEEK MODE 


T THE 2 LINES AT “IF WINCHESTER”, AND CELETE “IF 1 EQ@LU 0” TO 


(+ NOTE: UNOMMEN 
DUCE SEEKS ON THE WINCHESTERS BY HAL 
PEESeeeeeeeeeteegteertgerss 

begin 

IF 1 EQLU 0 
1272 if (.WINCHESTER) and 
1272 (€C.RANDOM [0] and #0'077777') mod (100)) lequ 49) 


BEGIN 

LBNO = .LBNO_SAVE; 
LBN1 = .LBN1_SAVE; 
END 


else 


in 

RANDY (); 

IF €.RNDY1 GTRU .E1_TEMP) OR 
CC.RNDY1 EQLU .E1_TEMP) AND 
C.RNDYO GTRU .EO_TEMP)) 

THEN 
BEGIN 
RNDOY1 = .RNDY1 AND .E€1_TEMP; 
Rin YO = .RNDYO AND .EO_TEMP; 
END; 


IF €.RNDY1 LSSU .S1_TEMP) OR 
(C.RNDY1 EQLU .S1_TEMP) AND 
(.RNDYO LSSU .SO_TEMP)) 

THEN 
BEGIN 
RNDY1 = .RNDY1 AND .S1_TEMP; 
RNOYO = .RNDYO AND .SO_TEMP; 


!COMMENT OUT FOR REDUCED SEEKS 


! REDUCE SEEKS ON RDs by 50s 
! REDUCE SEEKS ON RDs by 50s 


‘GET A 32-BIT RANDOM NUMBER 
IF NUMBER GREATER THAN MAX 
: 

: 

8 

!THEN MASK IT WITH HI LIMIT 
$ 

: 

: 

: 

‘IF NUMBER LESS THAN MIN 

: 

: 

: 

!THEN MASK IT WITH LO LIMIT 
: 


ee mee 


4624 5 
ZZZ 
4825 5 
ZZZ 


LENO = .RNDYO; 
L6N1 = .RNDY1; 


'LO HALF 
‘HI HALF 





7 END ; 
= ¢ SEQ 0387 
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4826 end; 
4827 end 
48628 
3 i ELSE ] 
ss begin ! ELSE - SEQUENTIAL LEN MODE (BEGIN A) 
sit LBNO = .BST [.LSLUN, LO_WRD); ! GET LBN FROM BST (LO WORD) 
oe" LBN1 = .BST (.LS$LUN, HI_WRD); ! GET LBN FROM BST (CHI WORD) 
48633 
532 IF .TRK_SGN [.L$LUN) EQLU 1 ‘IF WE WANT SERIAL INCREMENT ! 
4835 THEN ‘ | 
222 | 
oa BEGIN '(BEGIN B) | 
IF .6ST (.L$LUN, LO_WRD) EQLU so’ 177777' !IF OVERFLOW FROM LO WD TO HI WO | 
THEN ‘ 
BEGIN : | 
BST [.LSLUN, LO_WRD) = 0; ‘ZERO LO WORD 
BST (.L$LUN, HI_WRD) = .BST [(.L$LUN, HI_WRD) + 1; ‘INCREMENT HI WORD 
END $ 
ELSE !OTHERWISE JUST INCR LO WORD 
BST (.L$LUN, LO_WRD) = .BST [(.LSLUN, LO_WRD] + 1; g 


NOW TAKE CARE OF OVERFLOW WHILE INCREMENT 





IF (.6ST (.LSLUN, HI_WRD} GTRU .E€1_TEMP) !IF L6N1 OVER HI LIMIT 
bey Fe OR ((.BST [.LSLUN, HI_WRD) EQLU .E1_TEMP) !OR LBN1 EQUALS HI LIMIT AND LBNO IS OVER LI 
AND (.BST [.LSLUN, LO_WRD) GTRU .EO_TEMP)) ' 
THEN : 
BEGIN : 
BST ([.LSLUN, LO_WRD) = .EO_TEMP; !THEN SET HI LIMITS 
oF BST (.LS$LUN, HI_WRD) =..€1_ TEMP; ‘INTO BST FOR NEXT TIME 
sia TRK_SGN [.LSLUN]) = - 1; '!AND REVERSE DIRECTION 
aa5s END; : 
; END 'CEND B) 
7 
4658 
4859 
oe ELSE 'IF WE WANT SERIAL DECREMENT 
rs BEGIN '(BEGIN C) 
4862 IF .BST (.LSLUN., LO_WRD) EQLU 0 !IF NEED TO BORROW FROM HI WD | 
4863 THEN ! 
Z2ZZ 
so BEGIN ! 
’ 4865 BST (.LSLUN, LO_WRD) = s0'177777'; !LO WORD 


FO UAe eu VU eAaAaeauUuarnauwuUuUuaaoaauuwiy sa ae &B &» &® waas 


zzz 


, 5 ELSE 1OTHERWISE JUST DECR LO WORD 

' ‘36 5 BST [.LSLUN, LO_WRD) = .BST [.LSLUN, LO_WRD) - 1; ' 
| a 4a7i é NOM TAKE CARE OF UNDERFLOW WHILE INCREMENTI 
1 Mg72 6 IF (.8ST [.L#LUN, HI_WRD) LSS .S1_TEMP) 1IF LON1 IS BELOW LIMIT ) 
|, &er3s 7 OR ((.8ST [.LSLUN, HI_WRD) EQLU .S1_TEMP) 10R L@N1 EQUALS LO LIMIT AND LBNO IS BELOW 

1 dane 6 AND (.8ST [.L$LUN, LO_WRD) LSSU .SO_TEMP)) 

; i335 5 THEN ! 

1 ate 6 BEGIN 

, &an7 6 BST [.LSLUN, LO_WRD) = .SO_TEMP; ‘THEN SET LO LIMITS 

, dare 6 BST [.LSLUN, HI_WRD) = .S1_TEMP; INTO BST FOR NEXT TIME 


EQ 038 
S Q., 8 
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; 4879 6 TRK_SGN [.L$LUN) = + 1; : 'AND REVERSE DIRECTION 
; 4 be} END; ' 
222 
; 4661 4 END; ‘ 
222 
; 48862 3 END; ‘END C. 
222 
: 4663 3 ' 
222 
; 4884 2 END; ‘END A. 
222 
+ bees 3 
i 
; 4987 3 IF ((.S1_TEMP EQLU .E£1_TEMP) AND (.SO_TEMP EQLU .€0_TEMP)) 'IF START ADOR SAME AS END ADOR | 
: 498e 2 THEN !yUST USE THE START ADDRESS. 
| 
; 4889 3 BEGIN ' ) 
222 
s+ 4890 3 LBNO = .SO_TEMP; : | 
; 4891 3 LBNL = .S1_TEMP; | 
222 
; 4892 2 END; ' 
222 
; 4893 2 
; sens 2 MAD1 {LBN_L) = .LBNO; ! LOAD LBN INTO 1ST PACKET 
; 4895 2 MAD1 [L8N_H) = .LBN1; ' LOAD LBN INTO 1ST PACKET | 
$ 46 2 | 
; 4997 2 if .MX2 geq 0 ' IF 2 QI0s 
3 4 2 hen 
: ass 2 MAD2 [LBN_L) = .LBNO; ! LOAD LBN INTO 2ND PACKET | 
: 490 2 MAD2 [LB8N_H) = .LBN1; ' LOAD LBN INTO 2ND PACKET : 
; 4901 2 | 
; 4902 2 LBNO_SAVE = .LBNO; ' SAVE FOR USE NEXT CYCLE IF NEEDED ! 
: 4905 2 LBN1_SAVE = .LBNI; ! SAVE FOR USE NEXT CYCLE IF NEEDED | 
: 4904 2 
; 4905 1 end: ! ROUTINE QIO_LBN 
001276 .PSECT $GGG$. RO | 
| 001276 000000 LBNO.SAVE: 
001300 000000 L@N1. SAVE: 
: _ WORD 
.SBTTL QIO.LBN MULTI-DRIVE TEST ROUTINES 
.PSECT $CODE$, RO 
0000006 QIO.LBN:: 
JSR ; 4720 
024646 CMP 
112746 000001 MOVB ; *,WINCHESTER 4738 
0000006 MOV ‘ ; 4758 
013702 0000006 MOV 
eo RO : 
ASL 
060100 ADD 
016005 000002 MOV ; *,S0. TEMP ; 
0200 MOV : oe 
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000004 


000006 


4$: 


S$: 


6$: 


7$: 


10-Oct-1985 09:41:47 
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4(RO).R3 
R2,RO 
R1,RO 

6(RO), -(SP) 
R2,RO 

R1,RO 

10(RO),.R4 

R2 

R1.R2 

220. (R2) 

#4000, SP. FLAGS 
MAD1,RO 

22(RO), 042 

#1. FORCED. ERROR 


FERO.LBN,4(SP) 
FER1.LBN,6(SP) 


16$ 
$20,(R2) 

35 

2(SP) 

@2, SUP .FLAGS 
PC ,RANDY 
RNDY1,R4 

4$ 

S$ 

RNDYO, (SP) 
S$ 

R4.RO 

RO RNDY 1 
(SP),RO 
RO 

RO, RNDYO 
RNOY1,R3 
6% 

7$ 
RNDYO,RS 
7$ 

R3,RO 

RO 

RO, RNDY1 
R5.RO 


RNDYO,4(SP) 
RNDY1.6(SP) 


¢,€0. TEMP 


«,E1. TEMP 


*«,L BNO 
+, LBN1 


WINCHESTER 


«,€1. TEMP 


¢,£0. TEMP 
E1.TEMP,« 


EO. TEMP, « 


#,S1.TEMP 


#,S0. TEMP 
S1.TEMP,« 


SO. TEMP, « 


*«,L BNO 
*,LBN1 


. 2RQ)ZROAHO.BL2;3 


SEQ 0389 
Page 126 
(32 


) 


4760 


4761 


4766 


ee aT ee — —<— | 


RD/RX EXERCISER 


MULTI-DORIVE TEST ROUTINES 


000000G 


177777 


000377 


177777 


9$: 


10$: 


11%: 


12$: 


13$: 
14$: 


15$: 


168: 


17$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


16$ 
L$LUN,R2 
R2,R1 

Ri 

#BST,RO 
R1,R 
(RO),4(SP) 


12 
(RO), @-1 


od ~~ 


), CSP) 


RAR RA RAMA 
QDOrDDoVDwD 
2OeerOerO 


SEQ 0390 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: (ML YNAR . ZRQ)ZRGAHO.BL2; 3 


*,LBNO 
«,LBN1 


*,E1. TEMP 


*,£0. TEMP 


EO. TEMP ,« 
E1.TEMP,« 


*,S1. TEMP 


; *,S0. TEMP 


SO. TEMP, « 
S1.TEMP,« 


S1.TEMP £1. TEMP 
; SO. TEMP,E0O. TEMP 


; SO. TEMP,LBNO 
; S1.TEMP{LBN1 
; LBNO,« 
. LBN1.e 


Page 
(32) 


127 


4781 
4831 


a eee —— a 


SEQ 039 
ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Peoe 128 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2:(MLYNAR.ZRQ)ZRQAHO.BL2;3 (32) 
000534 013700 000116’ MOV MAD2,RO ; 4899 
000540 016660 000004 000046 MOV 4(SP),46(RO) ; LBNO, « 
000546 013700 000116’ 18$: MOV MA ; 4900 
000552 016660 000006 000050 MOV 6(SP},50(RO) ; LBN1,« 
000560 016637 000004 001276’ MOV 4(SP),LBNO. SAVE ; LBNO, « 4902 
000566 016637 000006 001300' MOV o( SP), LBN1. SAVE ; LBN1,« 4903 
000574 062706 000010 ADD #10,SP ; 4720 
000600 000207 RTS 
; Routine Size: 193 words, Routine Base: %sCODE$ + 14146 


; Maximum stack depth per invocation: 11 words 


; 4906 1 


— ew 6 eee | 


——_————— ee ee ee eee 


VMUNVNNNNNNNVNVNNNNNNNNNNNND ee pee ee epee ee 


LE 


SEQ 039. 


IMPLICIT OUTPUTS: 
THE BYTE COUNT IS LOADED INTO ONE OR BOTH MSCP PACKETS. 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliess-16 V4.1-5862 Page 129 
MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR . ZRQ)ZRQAHO.BL2;3 (33) 
!!ZZZ routine QIG_SIZE : novalue = 

GLOBAL ROUTINE QIO_SIZE : NOVALUE = 

8 

: La ROUTINE IS CALLED os "Ee GEN te Be tw THE I/0 TRANSFER BYTE COUNT 

: TO BE USED os — CURRE Q10 OR O PAIR. THE BYTE COUNT IS 

: DETERMINED BY A NO WILL ALWAYS FALL BETWEEN 1 AND THE 

: I/O BUFFER SIZE Ceyrs _PER meen re i's assumed that BYTS_PER aro will 

: never be larger than one binary word or 65000 bytes. 

‘ - 
§ 

' 


begin 
local 
SIZE : word, § BYTE COUNT 
BLOCKS_LEFT : word; ‘ REMAINING BLOCKS LEFT 
SIZE = (C.RANDOM [4] and #0'077777') mod €.BYTS_PER_QIO + 1)) and #0’177760’ ;!GET BYTE COUNT FROM RANDOM NUMBER 
if .SIZE eql 0 
then 
SIZE = 16; 


if .CST_ADOR [.CUOFF + D_END1) gtru .MAD1 [(LBN_H] 


then BLOCKS_LEFT = 0° 17777 77° ! find 
else BLOCKS_LEFT = .CST_ADDR [.CUOFF + 3, D_ENDO] - .MAD1 [LBN_L) + 1; ! REMAINING BLOCK COUNT 
if (C.SIZE + BYTES_PER_SECT - 1) / BYTES_PER_SECT) gtru .BLOCKS_LEFT ! IF BLOCK COUNT NOT ENOUGH 
tne” s17e = .BLOCKS_LEFT « BYTES_PER_SECT; ! ADJUST BYTE COUNT DOWN 
MAD1 ([B8C_LO) = .SIZE; ! LOAD SIZE INTO 1ST MSCP PACKET 
if m2 geq 0 ! IF 2 QIos | 

MAD2 (8C_LO) = .SIZE; ! LOAD SIZE INTO 2ND MSCP PACKET 


end; ROUTINE QIO_SIZE 
- SBTTL QIO.SIZE MULTI-DRIVE TEST ROUTINES 

000000G QI0.SIZE: 

JSR R1, $SAVE3 : 4908 
000010G MOV RANDOM+10,-( SP) : 4927 
100000 BIC #100000, (SP) 
000000G MOV BYTS.PER.QIO, -(SP) 

INC (SP) 
000000G JSR PC,BL$MOD 

MOV RO,R3S ; #,SIZE 
000017 BIC #17,R3 ; *,SIZ€ 


ZRQAMS3 RD/RX EXERCISER 
vo2.3 MULTI-DORIVE TEST ROUTINES 
001002 
000036 pay ths 000020 
013700 000000G 1$: 
063700 000000G 
000054 013701 000114’ 
000060 026061 000010 000050 
, 000066 101403 
_ 000070 012702 177777 
000413 
000076 013700 000000G 2s: 


~ 
<7 


000 00520 
000124 Siete 3$: 


000026 
000112' 


000116’ 
000026 


4$: 


000200 
000204 022626 S$: 


+ Routine Size: 68 words, 
: Maximum stack depth per invocation: 8 wor 


Routine Base: 


RTS 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


$20 R3 
CUOFF RO 


cst. ADDR ,RO 


MAD1, 
aaa 


#-1,R2 


RO,R3 
R3,26(R1) 
MX2 

S$ 

MAD2 .RO 
R3,.26CRO) 

iq +, (SP)+ 


$CODE$ + 14750 


EE se teen 


VAX-11 Bliss-16 V4.1-582 — x 0 
DISK $USER2: [ML YNAR . ZRQ)ZRQAHO.BL2;3 O98" 33) 


3 4929 
; *,SIZE 4931 
$ 4933 
; *,BLOCKS.LEFT 4934 
; 4933 
; 4935 
; *,BLOCKS.LEFT 
; BLOCKS.LEFT 7 
; SIZE,« 4937) 
; *,BLOCKS.LEFT | 
; BLOCKS.LEFT,« 4939) 
; *,SIZE 

:; SIZE,« 494 
3 494 
; 494 
; SIZE,« 

$ 492 
i a 


> 


-——-— — —— << « 


. 


bPLShShL|SL PACE CERO TOD CATO PO MOORE RID ee ee ee ee ee pe ee pe pe pe 


* ee 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


GLOBAL routine FILL_BUFF : novalue = 


THIS ROUTINE IS CALLED BY QIO_GEN TO LOAD THE 1/0 
THE FIRST MSCP PACKET WITH THE APPROPRIATE DATA PA 


10-Oct-1985 09:41:47 VAX-11 Blies-16 V4.1-582 
10-Oct-1985 09:21:16 DISK $USER2: [MLYNAR . ZRQ)JZRGAHO.BL2; 3 (34 


—_—_—- + e  —_— —— ao — 


SEQ 0394 
Page 433 


BUFFER DESCRIBED IN 
TTERN. 


THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM: 


| OPERATOR DEFINED A DATA PATTERN 


SELECT IT 
ELSE 


GET DATA PATTERN NUMBER FROM SW P-TABLE 
i—_—" PATTERN NUMBER = 0 


GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY 
IN THE DATA PATTERN SEQUENCE TABLE (DPST) 


NOTE THAT PATTERN @ 1 CONSISTS OF RANDOM NUMBERS, 
21 USE THE ACTUAL LBN OF THE WRITE REQUEST. 


IMPLICIT INPUTS: 
L$L 


UN - CURRENT CDRS) UNIT NUMBER 


COUNT : word, 
CUR_PRIORITY : word; 


—- C(SWP_FLAGS, SWF _UDP) 


n 
DP_ADDR = SWP_UCNT 
else 
begin 
if .SWP_DPAT neq 0 
then 


DP_NUM = .SWP_DPAT 
else 


begin 
OP NUM = .DPST CL SLUND 
DPST [.L$LUN] = .DPST [.L$LUN) + 1; 


if .DPST (.L$LUN) gtru DP_CNT 
then 
DPST [.L$LUN) = 1; 


AND PATTERNS @ 17 - 


! IF USER DEFINED A DATA PATTERN 
! SELECT IT 


: IF USER SELECTED A PRE-DEFINED DATA PATTERN 
! SELECT IT 


! CHECK FOR HIGH LIMIT 


DATA PATTERN NUMBER SELECTED 
ADDR OF DATA PATTERN (LENGTH) 
I/0 BUFFER ADDRESS (DESTINATION) 
WORKING SOURCE S 


NO. OF WORDS IN DATA PATTERN 
MMM 


GET PATTERN NUMBER FROM SEQUENCE TABLE 
ADVANCE TO NEXT PATTERN NUMBER 


- —_ rm ee ot wee em em — —-—<—— = eee 


—— 


MNMVNNVNVVUNNNNUNNNNNN Wl & & & UU UII UI IU TO NORD RDI0 NY WIN Ut Ut Ut Od OF tt Gt 


eee eee ee 


RD/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


end; 
DP_ADOR = .DPA_TBL [.DP_NUM - 1); 
if .OP_NUM gequ 17 
then 
if .OP_NUM 
then 
1 (.0P_ADDR + 2) = .MAD1 [LBN_L) 
else 
(.DP_ADDR + 4) = .MAD1 [(LBN_L); 
end; 
IOB_ADDR = .MAD1 er 0); 
COUNT = , OP 


SRC_ADDR = 5P_ADDR + 23 


incr N from 1 to ((.MAD1 [BC_LO) + 1) / 2) do 
in 


.I0B_ADOR = .. 
IOB_ADDR = .IOB_ADDR + 2; 
SRC_ADDR = .SRC_ADDR «+ 2; 
COUNT = .COUNT - 1; 


if .COUNT eql 0 
then 


ea 


if €.CSR_MEM and .TST_PAR) 
then 
if not .PAR_TSO 
then 
BE PPRICCUR PRIORITY); 
SETPRICPRIO7); 
IOB_ADDR = “MAD1 (BUF g@2s 
incr COUNT from 1 to 2 
207172100" = to'5S’; 
end; 
= to'2'; 


%0'172100' = s0'l'; 
SETPRIC( .CUR_PRIORITY); 
end; 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


VAX-11 Bliss-16 V4.1-56 


! ADDRESS OF DATA PATTERN (COUNT) 


CHECK MACRO CIF PATTERN 17, 19, OR 21) 
LOAD LBN INTO FIRST WORD OF PATTERN 
LOAD LBN INTO SECOND WORD OF PATTERN 


I/O BUFFER ADDRESS 

NO. OF WORDS IN DATA PATTERN 

START OF THE ACTUAL DATA PATTERN 
FOR EACH WORD IN THIS WRITE REQUEST 
MOVE 1 WORD 

ADVANCE DESTINATION ADDRESS 
ADVANCE SOURCE ADDRESS 

DECREMENT COUNT 


IF END OF DATA PATTERN 


REPEAT DATA PATTERN 


WORD TRANSFER LOOP 


lon 
~ 
© 
7 
m 
® 
Ww 
Ww 


1 WORD MMM 


3 
39353333 


! ROUTINE FILL_BUFF 


SEQ 0395 
Page 132 


DISK $USER2: (MLYNAR. 7RQ}ZROAHO. BL2;5 (34) 


_ ———————$ LF TS ES _— a ee 


SR 
ee ll 





SEQ 0396 
10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 133 


ZRQAMS RD/RX EXERCI ‘ 
vo2.3 10-Oct-1985 09:21:16 DISK $USER2: [MLYNAR . ZRQJZRQAHO.BL2;3 (34) 


SER 
MULTI-ORIVE TEST ROUTINES 


.SBTTL FILL.BUFF MULTI-DRIVE TEST ROUTINES 


_— —— ae eee 


eesti: 


Ri, $SAVES ; 

000004 005746 TST 7 
000006 032737 000100 0000006 BIT #100, SWP. FLAGS ; 
000014 00140 BEQ 
000016 012703 0000006 MOV @SWP.UCNT,R1 ; *,DP.ADOR 
000022 BR ; 

013700 0000006 1$: MOV SWP .DPAT,RO , 
000030 001402 BEQ 2$ 
000032 010002 MOV RO,R2 ; *,0P.NUM 
000034 14 BR 3$ ; 
000036 013700 000000G 2%: MOV L$LUN,RO : 
000042 700 000050’ ADD @DPST.RO 
000046 CLR R ; OP.NUM 
000050 151002 BISB (RO),R2 ; *,0P.NUM 
000052 10 INCB RO ; 
000054 121027 000025 CMPB 3s (RO), 825 ; 
000060 101402 BLOS 
000062 112710 000001 MOVB #1,(RO) ; 
000066 010200 3$: MOV R2.RO ; OP.NUM,« 
000070 006300 ASL 
000072 016001 001166' MOV OPA. TBL-2(RO),R1 ; *,0P.ADDR 
000076 7 000021 CMP R2,621 ; OP.NUM, « 
000102 103413 BLO 5 
000104 013700 000114’ MOV MAD1,RO : 
000110 2 ROR R2 ; OP.NUM 
0001 103004 BCC 43 
000114 016061 000046 000002 MOV 46(RO),2(R1) ; *,*(DP. ADDR) 
000122 000403 BR 3 ; 
000124 016061 000046 000004 4s: MOV 46(RO),4(R2) ; *,*(DP. ADDR) 
000132 013700 000114’ S$: MOV RO ; 
0001 000032 MOV 32(RO).R4 ; #,I0B. ADDR 
000142 011103 MOV (R1),R3 ; OP. ADDR, COUNT 
000144 012705 000002 MOV 62,R5 ; 
000150 105 ADD R1.R5 ; DP. ADDR, « 
000152 010502 MOV RS ,R2 3 *,SRC.ADDR 
000154 016046 000026 MOV 26(RO). -(SP) ; 
000160 16 INC (SP) 
000162 012746 000002 MOV $2,-(SP) 
000166 004737 000000G JSR PC .BLSDIV 
000172 010066 000004 MOV RO.4(SP) 
000176 CLR ; N 
000200 BR 7$ 
000202 012224 6$: MOV (R2)+,(R4)« ; SRC.ADOR,IOB8.ADOR 
000204 005303 DEC R3 ; COUNT 
000206 001002 BNE 73 : 
000210 011103 MOV (R1),R3 ; DP.ADOR, COUNT 
000212 010502 MOV RS.R2 ; #,SRC.ADOR 
000214 005200 7$: INC ; N 
000216 020066 000004 CMP RO.4(SP) ; Nv 


FILL .BUFF:: 
JSR 





——— ——s -- a we eo 





ZRQAMS RD/RX EXERCISER 
vo2.3 MULTI-ORIVE TEST ROUTINES 


000222 003767 
000224 062706 000006 
000230 000207 


; Routine Size: 7 words, Routine Base: 


+ Meximum stack anal per invocation: 10 words 


: 5054 1 
; 5055 1 


—-—— - —— 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


BLE 6$ 
ADD 06 , SP 
RTS PC 


$CODE$ + 15160 


SEQ 0397 


VAX-11 Bliss-16 v4. Page 134 
DISKSUSER2: [ML YNAR, ZROIZROAHO.8L2;3 7° 434 
; 494% 


SS EE Ge SE eu | Gn mm 


i 
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VAX-11 Bliss-16 V4.1-582 


10-Oct-1985 09:41:47 
DISK $SUSER2: [ML YNAR . ZRQ)ZRGAHO .BL2; 3 


RD/RX EXERCISE 
10-Oct-1985 09:21:16 


R 
MULTI-ORIVE TEST ROUTINES 


GLOBAL ROUTINE PROC_RETPKT : NOVALUE = 


° 


THIS ROUTINE IS CALLED FROM THE MULTI_DRIVE “EXECUTIVE” AND DUP_COMMAND TO CHECK FOR 
PROCESS ANY RETURN PACKETS THAT HAVE BEEN “SENT” BY THE OpRIven’ 

PORTION OF THE PROGRAM. THE I/0 CI0DQ@) ACTS AS THE LINK 

BETWEEN THE yuo es PROGRAM PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH 


UNDER THE MULTI-DRIVE TEST, RETURN PACKETS ORIGINATE FROM THREE SOURCES: 
1. MSCP T COMMON, DESCRIBING A COMPLETED I/0 


2. DUP LESS COMMON, DESCRIBING A PORTION OF 1/0 
COMMUNICATIONS WITH THE CONTROLLER PROGRAM 

3. THE PROGRAM "DRIVER" - DESCRIBING A CONTROLLER ERROR OR 
COMMAND TIMEOUT 


while .IODQ@_IN neq .IO0DQ_OUT do ! DO UNTIL I/0 DONE QUEVE IS EMPTY 


— Se, 
a 35) 


aa) 
RP INDX = OUT_IO0D@ () ! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 
RP-ADOR = RETBKT « ¢ RP_INDX # RP_LEN * 2); | CALCULATE RETPKT ADDRESS 
if NOT (.RP_ADDR [CONID] eql CID_6uP) ! t DUP th 
then (SET_CPAR (.RP_ADDR [CTLR});); ' SET "SP CURRENT” CONTROLLER PARAMETERS 
selectoneu .RP_ADDR [CONID] of ! CONNECTION ID INDICATES PACKET SOURCE 
(CID_MSCP) : IO_RETPKT (); ! DISK MSCP (1/0 TRANSFER R DONE) 
"MMM (CIO -0UP } : DIO_RETPKT (); ' DUP TRANSFER DONE) 
(CID_DRIVER] DR_RETPKT (); ! MESSAGE FROM cORIVER 
fotherwise] : PRINTF (DBM12, .RP_ADOR (CONID));!”CONN ID = XXXXX RECEIVED” 
es; 
end; ! UNITL I/O DONE QUEUE IS EMPTY 
,SBTTL PROC.RETPKT MULTI-DRIVE TEST ROUTINES 
PROC .RETPKT: 
MOV R1,-(SP) : 
0000006 0000006 1s: cH TOO. IN, 00a. OUT ; 507 
0000006 JSR PC,OUT.I00@ 507 
0000006 MOV RO_RP. INDX ' 
MOV RO, -CSP) HH RP .INDX,« S507 
000054 MOV 054, -(SP) 
0000006 JSR PC BL $MUL 
0000006 ADD @RETPKT RO 
000C000G MOV RO,RP. 
000003 000002 CH SCR), @2 : 507 
000002 MOVB 2(RO),(SP) ; 507 


oS mre eee ee | 


: 
SRE 
8 
g 


: Routine Size: 


s+ Maximum stack 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


177760 
000000G 
000000G 2s: 
000003 
000000V 
000003 3%: 
000000V 
4%: 
000000G 
000002 
5%: 
6%: 
words, Routine nee: 
RA. per invocation: 7 words 


PEELE FP 


“+ 
ps] 
3 


33783 


par 
wn 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


#177760, (SP) 
PC, SET.CPAR 


R 
3CRO),R1 


3 
PC,I0.RETPKT 


$CODE$ + 15412 


——, —--——— OS Ol - 


SEQ 0399 
VAX-11 Bliss-16 V4.1-562 Page 136 
DISK $SUSER2: PEHLYNAR: ZRQJZRQAHO.BL2;3 000 55) 
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RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bli | 
MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQJZRGAHO.BL2;3 


: MMM 
‘GLOBAL ROUTINE DIO_RETPKT : NOVALUE = 


* 


THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL DUP I/0 TRANSFER 
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY 
HARD ERRORS THAT MAY HAVE OCCURRED. UPDATING THE STATISTICS. 


IMPLICIT eaNeuTS: 
RP_ADOR THE CURRENT RETURN PACKET 
T_ADOR - ADDRESS OF THE CURRENT UNIT’ $ STATISTICS BLOCK (TALLY) 
Cet T_ADOR - ADORESS OF THE CURRENT CONTROLLER'S CST 
OUOFE - CST OFFSET FOR THE CURRENT UNIT 


$LUN - CURRENT UNIT NUMBE 
CCTLR - CURRENT CONTROLLER NUMBER 


IMPLICIT OUTPUTS 
CST_ADOR [.DUOFF + OF _DBN, NODUPMEDIA) - IF THIS BIT SET NO DUP EXERCISER 









BEGIN 

‘LOCAL “LAG : BYTE INITIAL(BYTECTRUE)). 
4 SUM2 : WORD, 

; SUM: ! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT 
'PRINTX (DER18); 


!IF_ .RP_ADDR (STATUS) NEQU ST_SUC : IF STATUS CODE INDICATES ERROR 








BEGIN 
HARD ERROR CD; ¢ OF _DBN, DUPERROR) = 1; ! SET DUP ERROR FLAG 


Re _AD0R ie (been) EQLU (OP_ELP + OP_END) OR ! IF ENDCODE IS EXECUTE LOCAL PROGRAM 
EQLU (OP"GDS > OP~END) OR GET DUST STATUS 


THEN 
cst -ADDR [.DUOFF + OF _DBN, NODUPMEDIA) = 1; ! TURN OFF DUP EXERCISR 
; 
ENO 
ELSE ! ELSE - I/0 WAS SUCCESSFUL 
BEGIN 
IF _.RP_ADOR (ENDCOD) EQLU (OP_GDS + OP_END) : IF ENDCODE IS GET DUST STATUS 
BEGIN 
IF .RP 


_ADDR (9,11,1,0] EQ 1 
THEN CST_ADOR [.DUOFF + OF _DBN, 0. ACTIVE) = ACTIVE 
CST_ADOR [.DUOFF + OF DBN. D-ACTIVE IOLE; ' CONTROLLER IN AN IDLE STATE 









ELSE # . 
Ir .RP_ —_ (9.9.1.0) NEQ 1 THEN TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF DUP DOC) 
HARD ont 
CST _AOOR t . OUDFF + OF _DBN, NODUPMEDIA) = 1; : TURN OFF DUP EXERCISR 
; 


: CONTROLLER IN AN ACTIVE STAE 


oe wee 
EE 


rr tee ett ce ane ~ 


- —_——_— sero —- 
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RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


tIF 


SEND; 
}PUT_RETPKT (.RP_INDX); 
'END; 


10-9¢%-1985 09:41:47 VAX-11 Bliss- 4.1-582 Page 136 


10-Oct-1985 09:21:16 DISK $SUSER2: ALYNAR: ZRQ JZROAHO .BL2; 3 


Pe + OP_END)) AND 
‘IF IT i. A eee e DBN COMMAND WITH TYPE 6 AND MESSAGE 2 THEN 
Ne OUPWRITE ) EQLU 137 : IF WRITE FLAG SET IN CST TABLE THEN COMPARE BLOCKS 


! COMPARE THE FOLLOWING 512 BYTES 


! ROUTINE DIO_RETPKT 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-$82 Page 
v02.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR. ZRQ]ZROAHO.BL2;3 : 
; 3158 1 !MMMGLOBAL ROUTINE DUP_COMPARE : NOVALUE = 
—_— ae 
; -° 
s Sean 3 ‘ THIS ROUTINE IS CALLED 3Y DIO_RETPKT WHEN THE RECEIVE DATA COMMAND 
; 5163 1 ' IS BEING PROCESSED. THIS COMMAND COMPARES THE WRITTEN BUFFER WITH 
; 5164 1 ' THE PATERN WORD GIVEN IN SEND DATA COMMAND. FOR EVERY WORD COMPARED 
5165 1 ' THE ROUTINE INCREMENTS THE TALLY TABLE. IF THE COMPARE SHOWS A 
; $166 1 ' ERROR. THE DBN HARD ERROR COUNTER WILL BE INCREMENTED AND THE 
; 3167 i THE DBN NUMBER AND BYTE COUNT WILL BE PRINTED. 
. _ 
; $169 1 ; IMPLICIT INPUTS : 
; $170 1 : S_PATTERN ! THE SAVED PATTERN WRITTEN TO THE DBN’S 
; S171 1 : S_ T ' THE POINTER FOR DUP BUFFER 
: $172 1 : T_ADDR ' THE ADDRESS OF THE TALLY TABLE FOR THIS UNIT 
; 2173 , CST_ADOR ! THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE 
; + 
; $175 1 *BEGIN 
» Sam & 
: S177 1 * OWN 
: 5178 1 : COUNT : WORD; 
3 5179 1 : 
; 5180 1 *!PRIN X_(DER19); 
; 5181 1 1S DUPPKT 0; 
: 3182 i rINCR COUNT FROM 1 TO 256 DO INDEX PIONTER FOR DATA STOREO IN MSCP ENV PACKET 
; 
>; $1864 1 ' S_DUPPKT = .S DUPPKT «+ 2; ! INITIALLY THIS SKIPS THE FIRST WORD OF DUPPKT 
; 318s i IF Set OE Ss " DUPPKT) NEQ .S_PATTERN THEN !IF THE CONTENTS OF DBN DOESN’ T EQUAL PATTERN 
; 
; 5187 1 ' CST_ADDR [.DUOFF + OF _DBN, DUPERROR] = 1; * SET DUP ERROR FLAG 
; 5188 1 : ERRHRD (46. EH_10, EMS 22), ‘LIST ERROR 
; 51869 1 ' EXITLOOP; 
: 5190 i ' END; 
; 5191 1 ' END; 'GO THROUGH ALL DBN WORDS 
>; §192 1 "END; ‘END ROUTINE DUP -COMPARE 
: 5193 1 
$ 5194 1 
$ 5195 1 


a ee ee eee ee 


ee 
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5196 1 GLOBAL routine IG_RETPKT : novalue = 
Sie ts 
5199 1 , THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL I/O TRANSFER 
5200 1 ' RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY 
5201 1 : HARD ERRORS THAT MAY HAVE OCCUR URRED, UPDATING THE STATISTICS, AND 
3202 A PERFORMING HOST WRITE-COMPARES IF REQUIRED. 
5204 1 ‘ IMPLICIT INPUTS: 
5205 1 ' CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
5206 1 ' RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
5207 i ' T_ADDR - ADDRESS OF CURRENT UNIT’S STATISTICS BLOCK (TALLY) 
5208 i ‘ ceter - CURRENT CONTROLLER NUMBER 
5209 1 ' L$LUN - CURRENT UNIT NUMBER 
§210 1 :. 
i 
in 
5213 2 
5214 2 local 
ai3 2 FLAG : byte initial (byte (TRUE)); 
5217 2 FSET_UPAR Oz ' FIND UNIT'S ENTRY IS CST pANo SET UP UNIT-RELATED DATA 
5218 2 ST_CODE = BOR (STSCOD}: ' GET STATUS CODE PRON RETPK 
3219 2 SB_CODE = ~4 -ADDR SUBCOD ); ! GET SUB-CODE, IF A 
3221 3 if ¢ €.ST_CODE neq ST_SUC) ! IF STATUS CODE INDICATES ERROR 
S223 3 HARo” 
5224 3 D_ERROR (); ! UPDATE ERROR COUNT 
3225 3 OMPARE_DATA = FALSE; ! NO POINT IN DOING HOST COMPARES ON ERRORS 
5227 3 if €.ST_CODE neq ST -OFL? and ! DROP UNIT IF ERROR COUNTS EXCEEDS LIMIT 
5228 3 (.ST_CODE neq ST_AVL) and 
5229 4 (.T_ADDR [ERR_HARD] gequ .SWP_ERROR) 
5230 3 then 
$231 4 bogie 
S232 4 * Lote) = DU_HERR; ' LOAD REASON FOR DROPPING UNIT 
5233 4 DODU (.L$LUN ! DROP UNIT 
5234 3 end; 
5235 3 
5236 3 end 
5237 2 else ! IF I/0 WAS SUCCESSFUL 
52368 3 uapin 
3239 3 UPD_IO_TALLY (); ! UPDATE I/O TALLY (STATISTICS) 
3241 ‘ if .RP_ADOR [ENDCOD] eql (OP_WRT or OP_END) 
: COMPARE_DATA = TRUE; ! HOST COMPARES MAY BE ALLOWED IF NO FURTHER ERRORS 
4 
4 
3 
3 


SEQ as 


if (BIT_TST CSWP_FLAGS, SWF_HWC)) and ! IF HOST IS DOING WRITE-COMPARES 
€ . COMPARE _DATA) 


nen 
FLAG = HOST_WRT_CHK (); ! SAVE I/O PACKET OR DO WRITE-CHECK 


et i ee 


SEQ 0404 


ee ——— 


— — + ee eee 
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: 5249 3 
: 5250 2 end; 
: 5251 2 ' 
; 2 if .FLAG ! IF FLAG IS STILL TRUE 
; 5253 2 then 
; 3254 2 SWEEP (); ' DEALLOCATE BUFFER(S) AND RETPKT(S) 
; 
; 5256 2 QIO (.CCTLR) = .QIO [.CCTLR) - 1; ! DECREMENT NO. OF OUTSTANDING QI0s 
; 5257 1 end; ' ROUTINE I0_RETPKT 
.SBTTL IO.RETPKT MULTI-ORIVE TEST ROUTINES 
000000 004137 0000006 IO. RETPKT: : 
JSR R1, $SAVE2 ; 5196 

000004 112701 000001 MOVB = «@ 1.1 ; #,FLAG S212 
000010 004737 000000V JSR PC. FSET.UPAR ; 5217 
000014 013700 000000G MOV RP-A ; $218 
000020 116037 000016 MOVB 16(R | 
000026 042737 177740 000000G BIC #177740,ST. CODE 
000034 016002 16 MOV =: 16( RO), ; 5219 
000040 006202 ASR R2 | 
000042 006202 ASR R2 | 
000044 006202 ASR R2 
000046 006202 ASR R2 . 
000050 006202 ASR 
000052 042702 174000 BIC #174000, R2 
000056 010237 0000006 MOV 2,SB.C 
000062 005737 000000G TST ST .CODE ; 
000066 001431 BEQ 1 
000070 004737 000000V JSR PC HARD. ERROR ‘ 
000074 105037 001262’ CLRB § COMPARE _DATA ; 
000100 023727 000000G 000003 CMP ST. CODE, ; 
000106 001447 BEQ 3$ 
000110 023727 0000006 000004 CMP ST .CODE, 04 ; 
000116 001443 BEQ 
000 013700 0000006 MOV T. ADDR RO ‘ 
000 37 000014 0000006 CMP 14(RO), SWP.ERROR 
000132 103435 BLO 33 
000134 013700 0000006 MOV L$LUN,RO ; 
000140 112760 000004 000000G MOVB $4, DURCRO) 
000146 104451 TRAP 3=s-s«SS , 
000150 0004 BR 35 7 
000152 004737 O00000V 1$: JSR PC,UPD.IO. TALLY ; 
000156 013700 000000G MOV RP . ADDR, RO : 
000162 1 7 000014 000242 CMPB 14(RO), 6242 
000170 001003 BNE 2$ 
000172 112737 000001 001262° MOVB #$ #1,COMPARE.DATA , 

032737 000040 0v0000G 23: BIT 040, SWP. FLAGS : 

00140 BEQ 3$ 
000210 032737 000001 001262° BIT 21, COMPARE .DATA ; 
000216 00140 BEQ 
000220 004737 0o00000v JSR PC HOST. WRT. CHK ; 
000224 110001 MOVB = RO.R1 ; #,FLAG 





| 
| 
| 


ZRQAM3 
vo2.3 


; Routine Size: 
; Maximum stack depth per invocation: 


RO/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


3$: 
000000V 
000000G 4$: 
000000G 
84 words, Routine Base: 


nt 


5 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


ROR Ri 

BCC ag 

JSR PC, SWEEP 
MOV CCTLR,.RO 
DECB QIO(RO) 
RTS C 


$CODE$ + 15572 


a ——— ee 


SEQ 0405 


VAX-11 Bliss-16 V4.1-582 
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; FLAG 


142 
(38) 


S252 
5254 
S256 
5196 


- LLL LILLE LLL LL LLL A ET EE LI Met Se ee ee mm 


< 
© 
tw 


SEQ 04 
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10-Oct-1985 09:41:47 
DISK S$USER2: [MLYNAR., 7RQ}ZROAHO. BL2;3 (39) 


RD/RX EXERCISE 
10-Oct-1985 09:21:16 


R 
MULTI-DRIVE TEST ROUTINES 


GLOBAL routine FSET_UPAR : novalue = 


> 


THIS ROUTINE IS CALLED BY IO_RETPKT 
CONTROLLER STATUS TABLE (CST) FOR T 
NED IN THE 


AND OTHERS TO SEARCH THE CURRENT 
DISK oe ny i a Is 


: 1 
$ 1 
8 1 : 
: : 
. - 
: 1 : CONTAI CURRENT RETURN PACKET. WHEN F OFFSET INTO THE 
3 1 : CST IS USED AS INPUT TO SET _UPAR, WHICH SETS UP CURRENT UNIT -RELATED 
: i DATA PARAMETERS. 
| 3 
5 5267 1 : IMPLICIT INPUTS: 
; S268 1 ' RP_ADDR - ADDRESS OF CURRENT RETURN PACKET | 
$ ase : : csT -~ADOR - ADDRESS OF CURRENT CONTROLLER‘S CST 
; 7 , 
: gaa & ' 
2 | ee. 
* 
; 3276 2 incr OFFSET from (0 + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF_UN) by UNIT_SIZE do ! FOR EACH UNIT | 
i 
; 3276 2 if .CST_ -ADDR [.OFFSET + OF _DATA, D_DISK_NUM) eql .RP_ADOR [DISK] ! IF RETPKT UNIT MATCHES CST ENTRY | 
; 
5 S278 3 papin 
; S279 3 SET_UPAR (. OFFSET): ! SET UP UNIT-RELATED DATA 
: 52 z return; § DONE 
$ Pret : end; | 
; 
s 52863 2 —- (OBM19, .RP_ADOR [DISK], .CCTLR); ' “CAN’T FIND DISK XXX IN CST x” 
; 5284 i end; ! ROUTINE FSET_UPAR 
.SBTTL FSET.UPAR MULTI-DRIVE TEST ROUTT™NES 
000000 004137 0000006 FSET.UPAR: 
JSR R1, $SAVE4 : 
000004 012702 000003 MOV #3 ,R2 ; *, OFFSET S27 
000010 010201 1$: MOV R2.R1 ; OF FSET,« S27 
000012 301 ASL oy 
000014 063701 000000G ADD CST.ADOR.R1 
000020 013700 0000006 MOV R 
000024 016004 000010 MOV 10(RO),R4 
000030 111103 MOVB CR1),R 
000032 2703 177760 BIC #177760, AS 
000036 304 CMP R3,R4 
000040 001005 BNE 2$ 
000042 010246 MOV R2,-CSP) ; OFFSET,« 527 
000044 004737 000000G JSR PC, SET.UPAR 
000050 005726 TST (SP )+ : 52 
000052 000207 RTS PC ; 527 
000054 062702 000012 2s: ADD $12 ,R2 ; *,OFFSET 5274 
000060 020227 000041 CMP R2, 041 ; OFFSET,« 
000064 003751 BLE 1$ 
000066 013746 000000G MOV CCTLR, -CSP) : 528 
000072 013700 000000G MOV RP. ° 
000076 016046 000010 MOV 10(RO), -CSP) 
000102 012746 MOV #0BM19, -(SP) 


i 
| 


:; Routine Size: 
| ¢ Maximum stack oa per invocation: 


06 
000207 
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000003 


000010 


words, 


Rout ine — 


words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


MOV SP ,RO 
TRAP 17 
ADD #10,SP 
RTS PC 


$CODE$ + 16042 


SEQ 0407 
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H SP ,* 

: S272 
3 5258 


re re mee 


I ee te i ee ay emma tes 


— + oe 


LLL Ss ssn eee rere eee a 


RROD N88 8 8 Gd G8 Gt ERD PD 8 8 08 Gh Ot Gt Od GE POPU OPO RR ee ee ee ee pe ee pe pe 


ee aL ee —- «- _—— - 


SEQ 0408 
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GLOBAL routine HARD_ERROR : novalue = 


> 


THIS ROUTINE IS CALLED BY IO_RETPKT AND OTHERS TO INCREMENT THE HARD 
ERROR STATISTIC FIELD FOR THE CURRENT UNIT. IF THE HARD ERROR COUNT 
pn I aeeTia. THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS DROPPED 


DPLICIT INPUTS: 
CURRENT UNIT NUMBER 
T ADDR’ ADDRESS OF CURRENT CONTROLLER'S CST 
cst A - CST OFFSET FOR CURRENT UNIT 
T_ - ADDRESS OF CURRENT UNIT‘S STATISTICS BLOCK (TALLY) 


in 
T*Roor (ERR_HARD) = T AOOR CERR_HARD) + 1; ! INCREMENT UNIT’S HARD ERROR COUNT 
ifs RP-AOOR (CONIO) EQt CID_MS {FOR MSCP ERRORS rag 


selectoneu .ST_CODE of 
set 


es rn ee wee ae ee 


(ST_SUC]: LA aes neq 0 ! SUCCESS WITH NON-ZERO SUB-CODE 


begin 


ME a can eql 4 
: T_ADDR [ERR_HRD_ORV) = .T_ADDR [ERR_HRD_DRV] + 1 
else 

T_ADDR [ERR_HRD_HST] = .T_ADOR [ERR_HRD_HST) + 1; 


a . APT_MODE 
ERR_HRD_RTNE_APT (44) 
else 
ERR_HRD_RTNE (44); 
end; 


(ST_CMD]: : INVALID COMMAND 


begin 
T_RODR [ERR_HRO_HST) = .T_ADOR C[ERR_HRD_HST] «+ 1; 
if .APT_MODE 

ERR_HRD_RTNE_APT (31) 
else 

ERR_HRD_RTNE (31); 
end; . 
(ST_ABO): begin ! COMMAND ABORTED 


. _—— oe a ee 


SS -_-— - - 





SEQ 0409 
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EAPO ID NN NN CN C8 GN CAPD C8 UN 8 Bo Be Be GH UE U8 UF GTI G8 UN U8 Ut Be BB UN UF Ud 8 UEP UF UF Ut UF 8 Ut 


RD/RX EXERCISER 


MULTI-ORIVE TEST ROUTINES 


T_ADDR (ERR_HRD_ORV) = .T_ADOR [ERR_HRD_ORV) + 1; 
if .APT_MODE 
ERR_HRD_RTNE_APT (32) 


10-Oct-1985 09:21:16 DISK SUSER2: [MLYNAR. ZRQ)ZRQAHO.BL2;3 


else 
ERR_HRD_RTNE (32); 
end; 
(ST_OFL) : in § OFFLINE 
T*Roor CERR_HRD_DRV) = .T_ADDR [ERR_HRD_DORV) + 1; 
if .APT_MODE 
then 
manic _BOX_TESTNUM = 1; 
a" _BOX_SUBTST = -CST_ADDR [.CUOFF + OF_DATA, D_DISK_NUM]; 
RROF (18, EGD “i ofnt 18); s 
DURE .L#CUN UN] = ATAL; ! DEVICE FATAL ERROR 
ae (.L$LUN); ! DROP UNIT 
. ~ AVL): vonie § WENT TO AVAILABLE STATE 
T_ CERR_HRD_ORV) = .T_ADOR [ERR_HRD_ORV] + 1; 
if .APT_MODE 
then 
manic _BOX_TESTNUM = 1; 
pn ne _BOX_SUBTST = -CST_ADOR [.CUOFF + OF _DATA, D_DISK_NUM]; 
ERROF Ey: EGD_18, EMS_24); : 
DUR [(.L sLUN] > “wv _OFATAL ; ' DEVICE FATAL ERROR 
DODU (. tat ! DROP UNIT 
: 
(ST_MFE]: eogie. ! MEDIA FORMAT ERROR 
a CERR_HRD_SEK] = .T_ADDR [ERR_HRD_SEK] + 1; 
if .APT_MODE 
then 
. ERR_HRD_RTNE_APT (35) 
se 
ERR_HRD_RTNE (35); 
end; 
(ST_WPT): begin ! DEVICE WRITE PROTECTED 


SE ee me 


we 


S 


seesseeeeegs 


VVUUUUUUUUUe & Haw 8 EN 8 8 8 Gd Gd 2d GND G8 8 8 8 8 Gd ad Gd Gt Gd Gd tt 8 dt dt Gt tt 


SEQ 0410 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 147 


MULTI-ORIVE TEST ROUTINES 
i? -SB_CODE eql 128 
. T_ADDOR [ERR_HRD_HST) = .T_ADOR [ERR_HRD_HST]) + 1 
else 
T_ADDR [ERR_HRD_DRV) = .T_ADDR [ERR_HRD_DRV]) + 1; 
if .APT_MODE 
ERR_HRD_RTNE_APT (36) 
else 
ERR_HRD_RTNE (36); 


end; 


—_— T° RoR CERR_HRD_DAT) = .T_ADOR [ERR_HRD_DAT) + 1; 
if .APT_MODE 
ERR _HRD_RTNE_APT (37) 
else 
ERR_HRD_RTNE (37); 
end; 
(ST_DAT): begin 
pie -SB_CODE eql 2 | 
T_ADOR [(ERR_HRD_SEK]) = .T_ADDR [ERR_HRD_SEK] + 1 
= -ADDR C(ERR_HRD_DAT] = .T_ADOR [ERR_HRD_DAT] + 1; 
if €.SB_CODE eql 0) and 


(not .FORCED_ERROR) an 
“we _TST CSWP_FLAGS, “Sur -FER)) 


PORCED ERROR. - TRUE; 

FERO wt = "RP -ADDR [LBN_LO}); 
FER1_LBN = .RP_ADOR (LBN_HI); 
FER_BC = .RP_ADOR [CBCNT_LO); 
end; 


if .APT_MODE 

: ERR_HRD_RTNE_APT (38) 
+8 aR_HRD_RTNE (38); 

end; 


: BLOCK WITH “FORCED ERROR“ FOUND 


10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQJZRQAHO.BL2;3 (40) 


COMPARE ERROR 


eer eee 


DATA ERROR 


———e—eeeee——————————— 


 - seamee me: cume ~- 
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5444 3 (ST_HST): penta ! HOST ACCESS ERROR 

5445 5 T-RDDR [ERR_HRD_HST) = .T_ADDR [ERR_MRD_HST) + 1; 

; 5447 3 if .APT_MODE 

t Sees 3 wenn NDR TeE APT (39) 

saat 3 amt san eek tenn 

| Be 3 ie ie 

1 sass (ST_CNT) , I 

. _CNT): ™ ! CONTROLLER ERROR : 
1 $456 3 T*ROOR CERR_HRD_DRV] = .T ADDR [ERR_HRD_DRV) + 1; : 
; 

5458 3 if .APT_MODE | 
sao 5 t ERR_HRD_RTNE_APT (40) | 
i = - os 
| Sees 3 a_i , 

| 
; 65463 (3 — : 
: 5464 2 end; 
| Stee § (ST_DRV] DRIVE ERR 
ORV): begin + DRIV 
; «$467 3 7 oo | 
; 5468 3 if .SB_CODE eqi 3 
: 5469 3 then 
; $470 3 T_ADDR [ERR_HRD_SEK] = .T_ADOR [ERR_HRD_SEK] + 1 
$ 5471 3 else 
: aac6 : T_ADDR [ERR_HRD_DRV] = .T_ADOR CERR_HRD_DRV) + 1; 
; 5a7a 3 if .APT_MODE 
: 5475 3 t 
; 547% 3 ERR_HRD_RTNE_APT (41) 
; 5477 3 eles 
; 5478 3 ERR_HRD_RTNE (41); 
: 5479 3 
: 5480 2 end; 
| aaa § [ST_DIA} MESSAGE FROM INTERNAL DIAGNOS 
: . : in ’ IN D T 
1 5483 3 T-RODR [ERR_HRD_DRV] = .T_ADOR [ERR_HRD_ORV) + 1; . - 
; 5485 3 if .APT_MODE 
; 5466 3 t 
; #5487 3 ERR_HRD_RTNE_APT (43) 
r 5466 3 else 
5 5469 3 ERR_HRD_RTNE (43); 
: 5490 3 
i 5491 2 end; 
| 498 3 [otherwise] ; ! PRINT STATUS CODE IF NO MATCH 
, otherwise): in ' 
+ 498 3 C-PRR_TBL [.CCTLR, C_ERR_HRD) = .C_ERR_TBL [.CCTLR, C_ERR_HRD) + 1; 
; 645496 if .APT_MODE 
| 


—_————— —_e- - - 


7 oF oF GF GF GF Ge Ge Ge Ge Ge Ge ce oe betes os Ge oe os as oe os 


MEDIA !:Z 


5521 





MMM PPP 


cenasetiainiaienbieeteanlll 
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then 
ERK_HRD_RTNE_APT (45) 
—= ERR_HRD_RTNE (45); 
end; 
tes; 


!MMMif .*P_ADDR ([CONID]) EQL CID_DuUP 
'MMMOR .D FaIL EQL 1 
MMM THEN 


; selectoneu .RP_ADDR [STSCOD) of 

‘ [s0'0'} : begin ! if status code succ 
: if .RP_ADOR aCe) EQLU (OP_GDS + OP_END 
: -RP_ADOR (9,9,1,0] NEQ 1 

g then 

: BEGIN 

: ERR_HRD_RTNE (60); 

t T_ADDR [ERR_HRD_DRV) = 

¢ END 

: else 

: begin 

‘ if €.DUPPKT (OUPTYPE) eql 5) 

: then 

!:ZZZ begin 

$!2Z2Z OUR [.L$LUN) = DU_DFATAL; 
§!2Z2Z DOOU (.LSLUN); 

§!Z2Z end; 


wntontemy. -DUPPKT (DUPMESG) of 


{so'l') : in 
T_ADOR OaTNE # gS 
LE. 


inbenic _RTNE (63); 


TRIS (ER IOD HET) 





(s0'2') 






(so'3') : 


inh reann eae bay) 


([#0'4') ; 


inthis reat Eas aT) 


(#0'5') : 


PENS one sep, 
end; 


) and ! IF 


engnt MENACE 
-T_ADDOR [ERR_HRO_HST) + 1; 


. T_ADOR 


!FOR DUP ERRORS 722 | 
!EVEN IF UNRECOGNIZABLE AS SUCH 222 | 


esful 
ENDCODE IS GET DUST STATUS 
! TEST TO SEE IF CONTROLLER LOCAL 


! (PG 18 OF DUP DOC) 
‘UNABLE TO LOAD LOCAL CONTROLLER 


-T_ADDR [ERR_HRO_DRV) + 1; 


! if fatel error 

‘DON’T DROP DEVICE ON OUP ERROR 
iGIVE F.E. A CHANCE TO SEE ERRORS 
: FATAL DEVICE ERROR DROP UNIT); 
! SET REASON FOR OROPPING UNIT 


* ill l unit nusmber !Z2ZZ 


ADDR [ _MRD_HST) «+ 1; 


! iliegel relative or pnysicel 


-T_ADDOR [ERR_HRD_HST) + 1; 


' device error 'Z2Z 


.T_ADOR [ERR_«QD_DRV) + 1; 


' zero l 


' device error 
CERR_HRD_ORV) «+ 1; 


rr a 


KP VMVUNVUVNVVNVNNMMNNVNVNNVNNNNNNNNMNNMRMNMNANAN fro 


004137 
013701 
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oe +e +e 


(s0'1'] 


([#0'2' 


([s0'3'] 


([#0'4' ] 


{[#0'5'] 


(#0'6' 


(OTHERWISE } 


TES; 





oe _— ee 


SEQ 0413 
p 
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(OTHERWISE) : begin 
ERR_HRD_RT DUP UNKNOWN STATUS CODE !227 
C_ERR_TBL [. corer’ C_ERR * HRD) = .C_ERR sTOL (.CCTLR, C_ERR_HR 
end; 
tes; 
end; 
end; 
: begin 
ERR_HRD_RTNE (67); ' INVALID COMMAND '22Z 
T_ADOR TERR_HRD_ORV) = .T_ADDR [ERR_HRD_ORV) + 1; 
end; 
ERR RD RINE (68); ' NO REGION AVAILABLE '22Z 


<AbOR TERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV) + 1; 


ERR_HR ' bSR'n RTNE (69); ' NO REGION SUITABLE 'Z2Z 
T_AODR [ERR_HRD_HST) = .T_ADDR [ERR_HRO_HST]) + 1; 
: 
ERR. HRD? RINE (70); ! PROGRAM NOT KNOWN '22Z 
T ~ADOR TERR_HRD_HST]) = .T_ADDR [ERR_HRD_HST] + 1; 
end; 
: begin 
ERR_HRD_RTNE (71); * LOAD FAILURE '22Z 
T_ADDR [TERR_HRD_DRV) = .T_ADDR [ERR_HRD_DRV] + 1; 
end; 
ERR ‘RD? RINE (72); '22Z 


' STANDALONE 
T_ADOR [ERR_HRD_HST) = .T_ADOR [ERR_HRD_HST] + 1; 


EE TTT TTT TTT Vr See 


eas 
ERR R Bap RTNE (73); DUP UNKNOWN STATUS CODE !2Z22 
C_ERR_ T6L (.CCTLR, C_ERR_HRD) = e _ERR_TBL [.CCTLR, C_ERR_HRD) + 1; 
end; 
! ROUTINE HARD_ERROR 

.SBTTL HARD.ERROR MULTI-ORIVE TEST ROUTINES 

HARD .ERROR: : 
JSR R1, $SAVES ; 5285 
MOV T.ADOR,R1 : 5301 
INC 14(R1) 
MOV RP .ADDR,R3 ; 5302 
TSTB 3(R3) 
BEQ 

i$ RTS Pc 

2$ MOV ST. CODE ,R2 ; 5305 
BNE : 5308 
MOV SB.CODE,R4 


a 


ZRQAMS 





RD/RX EXERCISER 


MULTI-DRIVE TEST ROUTINES 


001260 
177760 


000000G 
000005 


001254' 


001254’ 


001254’ 


001254' 
001256' 


001260' 


000000G 


3$: 
4$: 


5$: 
6$: 


7$: 
8$: 


9$: 


10$: 


11$: 


l2$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


51iCR1) 

7 a 

#37,-CSP) 
1$ 

@37,-CSP) 

23$ 


Re, #2 
10$ 


SOCR1) 
or ee 


11$ 
#1, 8MAIL .BOX. TESTNUM 
CUOFF .RO 


CST.ADOR,R 
CRO), MAIL. “Box. SUBTST 
a , MAIL .BOX. SUBTST 


22 

EGD.18 

EMS .18 
L$LUN,RO 
— 


PC 
R2, 44 
14$ 


Se ee ee ee — 


SEQ 0414 


X-11 Bliss-16 V4.1 
DISKSUSERS, {MLYNAR. SAI ZROAHO. BL2;3 


age 151 
O98" 40) 





ee — 


we 


mm 


RD/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 


000050 
000001 001254° 
000001 001256‘ 
000000G 


001260’ 
177760 001260’ 


13%: 
000000G 
000005 000000G 
000005 14$: 
000046 
000001 001254’ 
000043 
1i5$: 
000043 16$ 
17$: 
000006 18$ 
000050 
000000G 000200 
000001 
19$: 
000001 001254’ 20$: 
000044 
21%: 
000044 22s: 
233: 
000007 24s: 
000047 
000001 001254' 
000045 
25$: 
000045 26$ 
e7$: 
000010 28$ 
000046 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


SOCR1) 

#1,APT.MOD™ 

13$ 
#1,@MAIL .BOX. TESTNUM 
CUOFF ,RO 


RO 

CST = ADOR ,RO 

CRO), @MAIL .BOX. SUBTST 

-— sighiprscaceaiaeaataiateaa ileal 


30 

EGD.18 

EMS .24 
L$LUN,RO 
—* 


PC 
R2,@5 


18$ 
46(R1) 
#1,APT.MODE 


VAX-11 Bliss-16 V4.1-582 
DISKSUSER2: [ML YNAR .ZRQ)ZRQAHO.BL2;3 


+ 
5 





SEQ 0415 
P 


152 
(40) 


5364 
5366 


5369 
5370 





LL LLL A TT 





RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000000G 000002 


000001 29%: 
000000G 30$: 
000001 000000G 
004000 000000G 
000901 000000G 
000050 000000G 
000052 000000G 
000044 000000G 
000001 001254’ 31$: 
C00046 
000046 328: 
000011 33$ 
000051 
000001 001254’ 
000047 
000047 34$ 
000012 35$ 
000050 
000001 001254’ 
000050 
36$: 
000050 37%: 
38%: 
000013 398: 
000000G 000003 
000046 
000050 40$: 
1 0v1254' 4i$: 
000051 
42$: 
000051 43$: 
44$: 


ee em meee —-— =—-< 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


R1,RO 
SB. CODE , ¢2 
29% 


CRO) 

30$ 

1CRO) 

$B. CODE 

31% 

— 


oe ee 
#1,FORCED.ERROR 


SEQ 0416 
VAX-11 Bliss-16 V4.1-582 Page 153 
DISK$USER2: [MLYNAR. FRO ZROAHO. BL2;3 (40) 





gesgess: 


s Routine Size: 
:; Maximum stack 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000037 4S$: 
000050 
000001 001254’ 
000053 
46%: 
000053 47$ 
483: 
0000006 49$: 
000000G 


000055 
000000V 50$: 
000055 51$: 
CO0000V 52s: 
53$: 
322 words, Routine Base: 
depth per invocation: 7 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


R2,@37 
9% 


a 
SOCR1) 
#1,APT.MODE 


47$ 

#53, -(SP) 

— 
CCTLR,RO 
Figg le 
#1,APT.MO 


#55, -CSP) 
PC ERR. HRD .RTNE . APT 


#S5,-(CSP ) 
PC ERR .HRD.RTNE 
CSP )-« 


$CODE$ + 16166 


a ee ee 


VAX-11 Bliss-16 V4.1 
DISK$USER2: (ML YNAR. Sea IZROAMO. BL2;3 


SEQ 0417 


(40) 
5482 


5483 
5485 


eeenns 


epee eae pet ee pe pt hee 
CC AUNUNNUUUUH WH UW URN NNNNNMMMNMNNMNVN NA bb bP pp bh Pe pe pe pe 


PARAAR AAD 
CVGAIAVUAUNrYO 


S geeeeeces 


TRARAH 
SCauHUbUE & 


36 
5637 


: 


tit ool 


10-Oct-1985 09:41:47 


RD/RX EXERCISER 
10-Oct-1985 09:21:16 


MULTI-DRIVE TEST ROUTINES 


GLOBAL routine UPD_IO_TALLY : novalue = 


> 


THIS ROUTINE IS CALLED FROM IO_RETPKT FOR ALL I/0 TRANSFER RETURN 
PACKETS WITH “SUCCESS” STATUS CODES. 

APPROFRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT. 

MADE ON THE TOTAL ER OF BYTES TRANSFERRED THUS FAR; IF THE 


IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACK 
T_ADDR - ADDRESS OF THE CUR 
cst ADDR - ADDRESS OF THE CURRENT CONTROLLER’ 
CUOFF - CST OFFSET FOR THE CURRENT UNIT 
L$LUN - CURRENT UNIT NUMBER 


2 = O@ Om 8 8S OS 8S OS 6 oS om te te 


begin 
loca 
SANDS 1 word, 
MILLIONS : word, ! 
L CNT © eye q 
PARTIAL_CNT ' 
BYTES _ PER “SECTOR : "word initial (512), ' 
$ word; ) 
INDEX = .CST_ADOR {.CUOFF + OF _DATA, D_DISK_NUM]; 
PARTIAL_CNT = .RP_ADDR [BCNT_LO) MOD .BYTES_PER_SECTOR; ' 
if .PARTIAL_CNT eal 0 ' 
then FILL_CN NT = ‘ 


else FILL_CNT = “BYTES -PER_SECTOR - .PARTIAL_CNT; : 
-RP_ADDR [ENDCOD) eql COP_RD or OP_END) : 
en 


begin 
TYPER [INDEX] = .TYPER [INDEX] + 1; 


T-npoe pon tr READS LO] = .T_ADDR [TOT_READS_LO] + 
BYTES_READ_LO) = .T_ADOR (B8YTES_READ “LO} 


T_ADOR (TOT_BYT_RED ge = .T_ADOR (TOT_BYT_RED_LO) + 


T 
OVF_CHK (T_ADOR (TOT_R $01) 
OVE-CHK ¢TTADDR CBYTES RERO-LO}3; 
OVF_CHK (T_ADDOR [TOT “BYT RE =B. LO)}); ' 
end 
else 

7 .RP_ADDR [ENDCOD) eql (OP_WRT or OP_END) 

en 


in 
ryBew {. INDEX) = .TYPEW [. INDEX] + 1; 
T_ADOR [TOT_WRITES_LO) = .T_ADDOR [TOT_WRITES_LO) + 1; 


VAX-11 Bliss-16 V4.1-582 
DISK $USER2: ([MLYNAR .ZRQ)ZRQAHO.BL2;3 


! INCRE 
-RP_ADDR ([BCNT_LOj + 


.RP_ADDR ea LO) + 


ITS PURPOSE IS " UPDATE ALL THE 
A CHECK IS ALSO 


OPERATOR-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS DROPPED. 


ET 
RENT UNIT'S Sek a Cet BLOCK (TALLY) 


TOTAL NO. 
_AANSFER COUNT 


!POINT TO TYPER + TYPEW FOR THIS UNIT 


PARTIAL SECTOR COUNT TRANSFERED 
CALCULATE ZERO FILL LENGHT ON 
PARTIAL SECTOR TRANSFER AND 
ADD TO TALLY COUNT 


IF ENDCODE IS READ 


fINCREMENT READ COUNT 
MENT NO. OF READS AND ADD BYTE ee 


-FILL_CNT ; 


-FILL_CNT 
HECK FOR FIELD OVERFLOW 


! IF ENOCODE IS WRITE 


!INCREMENT WRITE COUNT 
! INCREMENT NO. OF WRITES, ADD BYTE COUNT 





SEQ 0418 
pP 


: OF BYTES XFERRED TO/FROM A UN 
! PARTIAL SECTOR “ILL COUNT 

! PARTIAL SECTOR 
' RD AND RX BYTES PER SECTOR 
! UNIT NO. 


Lan 
~4 


Z2ZZ 


Z22Z 


i55 
males) 





~ — 


- - ee 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 age 156 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. FRAT ZROAHO. BL2;3 (41) 
; 5643 3 T_ADOR (BYTES_WRIT 9}. = ADDR (BYTES WRIT_LO] + .RP_ADDR ([BCNT_LO] + FILL. CNT ; : MMM 

3 85644 3 T_ADDR [TOT_BYT_WRT_LO) = T MRDDR {TOT_6YT_WRT "L0} ¢ .RP_A , fect "LO} > FICL_CNT ' MMM 

5 8645 3 OVF_CHK (T_ADDR (TOT wartes C0), HECK FOR FIELD OVERFLOW 
; 5646 3 OVF_CHK CT_ADDR (SYTES_WRIT_LO)); 

3 85647 3 OVF_CHK (T_ADDR (TOT_BYT_WRT_LO)); ! 

| i 5646 2 end; 

| g 5649 2 

|s $650 e if €.RP_ADOR 90) eql (OP_RD or OP_END)) or 

i: 5651 3 (RP -ADDR ENDCOD eql (OP_WRT or OP_END)) 
| gas § = 

| 8 
; 8654 3 MI {Tons = aT ADDR (MBYTES_READ] + .T -ADOR (MBYTES_WRIT); ! TOTAL BYTES TRANSFERRED 
, 3635 : THOUSANDS = .T_ADDR (BYTES_READ_HI) + .T_ADDR [BYTES_ WRIT _HI); 
i 
s S657 3 if . THOUSANDS gequ 1000 
: 5658 3 then 
: 5659 4 eepin 
: 5660 4 MILLIONS = .MILLIONS + 1; ! COUNT THE LOWER OVERFLOW TOO! 
; S661 4 THOUSANDS = . THOUSANDS - 1000; 
3 5662 53 end; 
| Hea 3 
i 
; S665 4 IF (.TYPER {.INDEX] GEQU #0‘'100000' ) OR (.TYPEW [. INDEX] GEQU #0'100000')  ! RESET COUNTERS AT SOME MpM 
; 5666 3 THEN ! CONVENIENT POINT TO AVOID MMH 
; S667 4 GIN ! OVERFLOWING MME 
; S668 4 TYPER [{. INDEX) = Q3 ‘ MDE 
:s 5669 4 TYPEW [.INDE 0; ! MMM 
; S670 4 AL_IN "PROGRESS C. INDEX] = 0; ' MN 
; S671 4 FORCE OR {. INDEX) = 0; ' mM 
+ Bis 3 _ 
é 
; 5674 4 IF .TYPER {. INDEX] GTRU ((2 « .TYPEW [{.INDEX]) + 20) ' 700 MANY READS ? MMM 
$ 5675 3 THEN : MMM 
s S676 4 BEGIN ! FORCE WRITE OPERATIONS MMM 
; S677 4 BAL_IN ghROGRESs f INDEX) = TRUE; ! MMM 
: S678 4 COE { .INDEX] = TRUE; ' MMe 
: Sean : END ’ MMM 
' 
; 5681 3 IF (C2 « .TYPEW (.INDEX]) + 20) GTRU .TYPER [ . INDEX) ' TOO MANY WRITES ? MPM 
: 5682 3 THEN Q MMM 
; S683 4 BEGIN ' FORCE READ OPERATIONS Mes 
; S684 4 BAL _IN gbROGRESS INDEX) = = am : intel 
; 568s 4 FORCE _ {. INDEX] = FALSE ‘ HMM 
: ary : END 2 MMM 
3 568 
; 8686 3 IF .TYPER {. INDEX) GTRU ((2 « .TYPEW [.INDEX]) + 5) AND - * ENOUGH WRITES TO STOP MMM 
; 8689 3 BAL_IN_PROGRESS [. INDEX] ' BALANCE PROCESS ? ney 
$ 5690 3 5 MMM 
: S691 4 BEGIN ‘ Meany 
: $692 4 BAL _IN opnoeness {. INDEX) = FALSE; é MMM 
; S693 4 FORCE_WR [. INDEX} = FALSE; : aaa 
; 5694 3 END; : MMM 
: 5695 3 " 


SEQ 0419 
p 


— ew ee ee em oe. 


oF of GF GF Ge GF GF GF GH GF SF Ge SF GH Se Ge Ge oe Se Ge Ge GF Se Se GF SF Ge & Se GF Ge Ge Ge Gt Ge Ge GF GF Ge Se Ge Se OF Ge SF es Ge Ge Ge Ge Ge Se os 


KP NMUMVRVUNVNRNNNVNUNNVNVUNUWWUUWh PSL SUUAWIUUUUNUUUUUUUW & & dw 





SEQ 0420 


ROUND _OUTPUT C); ! ROUND TOTALS TO FIT PRINT POSITIONS 
end; ! ROUTINE UPD_IO_TALLY 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4. Page 157 
MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISKSUSER2: [MLYNAR. SAT ZROAHO. BL2;3 (41) 
IF € (C2 « .TYPEW Booty ¢ 5) GTRU .TYPER [.INDEX]) ) AND ' ENOUGH READS TO STOP MMM 
BAL_IN_PROGRESS [ . INDEX BALANCE PROCESS ? a 
BAL TN _PROGRESS [. - INDEX] = FALSE; ‘ MMM 
ll {. INDEX] = FALSE; : MMe 
END ‘ MMM 
‘ 
: THIS ~ Ry ere IT WILL TAKE FOREVER TO TRANSFER ON THE ORDER OF A MEGABYTE TO A FLOPPY 
' BUT IT IS A MUCH MORE REASONABLE MEASURE FOR THE RD5S1/S2 WINCHESTER. THE QUESTION NOW REFERS TO | 
‘ THE TOTAL DATA TRANSFER TO THE CONTROLLER AND THIS IS PRETTY CLOSE SINCE THE FLOPPIES GET 
ABOUT 1/1000 THE DATA THE HARD DISK(S) GET. | 
et eql 0 ' IF THERE IS A TRANSFER LIMIT 
begin 
if . THOUSANDS gtru 50 'ZZZ | 
EOP_FLAG = TRUE; ' SET END-OF-PASS FLAG 
end 
else 
if .MILLIONS gequ .SWP_XFER ' IF TRANSFER LIMIT IS REACHED 
EOP_FLAG = TRUE; ! SET END-OF-PASS FLAG 
end; ! IF UNIT IS STILL ALIVE 
rd aera ae ee ek ale eg ed ae grate eas bake oe bute awe ee be ewe ab eee ekeaewoecuaae 
4 
' THE FOLLOWING IS ADDED TO MAKE THE RUN TIME ABOUT 1.5 MINUTES FOR A 
: QUICK PASS IF ALL UNITS UNDER TEST ARE FLOPPIES. 
§!ZZ2Z IF .RD_COUNT EQL O 'IF THERE ARE NO WINCHESTERS 2ZZ 
11222 : fg 
'!Z2Z2Z BEGIN : ZZZ 
'!2Z2Z IF . THOUSANDS GTRU 44 ‘IF ABOUT 1.5 MINUTES GONE BY 222 
§'Z2Z THEN : 2ZZ 
$#Z2Z EOP_FLAG = TRUE; 'SET THE END OF PASS FLAG ZZZ 
$8222 END; ! 22Z 
i 
| 


ee ee eee ae 


004137 


012701 
013700 


RD/RX EXERCISER 


MULTI-DRIVE TEST ROUTINES 


000241 


000242 


1$: 
2s: 


3$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 





VAX-11 Bliss-16 V4.1 
DISK SUSER2: [MLYNAR. tRa}ZROAHO. BL2;5 


ere UPD.IO.TALLY MULTI-ORIVE TEST ROUTINES 
UPD. IO. TALLY: 


R1,$SAVES 
#1000,R1 
> all eRO 


R »RO 
14(RO), 0241 
3$ 

R3,RO 

RO 

Ms Sd 


4$ 

14(RO), 242 
3% 

R3,RO 

RO 
TYPEWCRO) 
T. ADDR ,RO 
24(RO) 


«,BYTES.PER.SECTO 


*#, INDEX 
*«, INDEX 


BYTES .PER.SECTO,« 


PARTIAL .CNT 
FILL .CNT 


BYTES .PER.SECTO,FILL.CNT 
PARTIAL .CNT,FILL.CNT 


INDEX, 


FILL .CNT,# 


FILL.CNT,# 


INDEX, + 


SEQ 0421 
Page 


i158 


male st) 





i ct eit it. tt 


101405 


~- —— ee 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000001 
000001 


10000 


000000G 
000000G 


6$: 


7$: 


9$: 


10$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 

R4,R1 

6(RO).R1 

R1.6(RO) 

R4°R 

40(RO).R1 

R1.40(RO) 

624,(SP 


: »RO 
14(RO), #241 
14(RO), 242 
16 


R 
#1750,R4 

R3,RO 

RO 

@TYPER R2 

CR2), 100000 
TYPEWCRO), 100000 
(R2) 

TYPEWCRO) 

AL. IN. PROGRESS(RO) 
FORCE .WRCRO) 
TYPEWCRO). R3 


1 

#1,BAL.IN. ——o 
@1.FORCE .WRCRO) 
R1,CR2) 


SEQ 0422 


VAX-11 Bliss-16 V4.1-582 Page 159 
DISK $USER2: [MLYNAR .ZRQ)ZRGAHO.BL2;3 O9e 41) 
3 5643 


; FILL.CNT,« 


a 
; FILL.CNT,« 


+, MILLIONS 


a 
= 
am 
Sr 
rr 
: 


HOUSANDS , « 


MILLIONS 
.. — 





—_ 


BS 


: 
25 
b 
~ 


7 ee ee 


1 Routine Size: 
+ Maximum eteck 


RD/RX EXERCISER 
MULTI-ORIVE TEST ROUTINES 
000001 000000G 
000000G 
000005 11%: 
000000G 
000000G 
000000G 

12%: 
000000G 
000000G 
C00000G 
000000G 13%: 
000062 

148: 
000001 000000G 15%: 
000000V 168%: 
211 words, Routine Base: 


depth per invocation: 9 words 


CMP 
RTS 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


#1,BAL .IN.PROGRESS(RO) 
FORCE .WRCRO) 

@5.R3 

CR2),RS 

12% 

RO,R1 
rene 
12$ 

BAL .IN.PROGRESS(RO) 
FORCE .WRCRO) 
R3,CR2) 

RO,R1 
noe RS 


IN. > acetate 
-WRCRO) 


$CODE$ + 17372 


SEQ 0423 
VAX-11 Bliss-16 V4.1-582 Pege 160 


DISK$SUSER2: CPL YNAR: ZRQ)JZRQAHO.BL2;3 (41) 
: 5684 
: 5685 
; 5683 
: S689 
, ong 
: 

; 5696 
; 5697) 
: 57 

$ 570 

: 571 

; THOUSANDS, « 571 


: S72 
$72 
574 
560 
55 


Lc, ee et i - 


SEQ 0424 





ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-562 Page 161 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK $SUSER2: ([MLYNAR . ZRQ)ZRQAHO.8L2;3 (42) 
i Led ; GLOBAL routine OVF_CHK CADDR) : novelue = 
§¢ 
$751 1 ' THIS ROUTINE IS CALLED FROM UPD_IO TALLY IfO CHECK FOR OVERFLOW IN 
+ $752 1 4 CERTAIN STATISTICAL FIELDS OF THE CURRENT UNIT. SPECIFICALLY, THE 
; $753 1 ' LOW-ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR 
' 754 1 ' EXCEEDING 1000. IF TRUE, THEN THE HIGH-ORDER COUNT IS I ED. IF 
, 3733 i THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IN INCREMENTED. | 
757 i : INPUTS: 
' 1 ' ADDR - ADDRESS OF THE BYTES_READ_LO OR BYTES_WRIT_LO FIELD FOR 
i 1a $4 1 : THE CURRENT UNIT (SEE STATISTIC TABLE (TALLY) LAYOUT) 
| = 
; 163 2 begin 
; 763 2 while ..ADDR gequ 1000 do ! IF LO-ORDER OVERFLOW 
‘ nm 
' 765 3 ? * ..ADDR - 1000; t SUBTRACT 1000 _ 
' 766 3 (.ADDR «+ 2) = .(€.ADDR + 2) + 1; ! INCR HI-ORDER 
| Stee ay 
a 
; 769 2 if .C. ADDR + 2) gequ 1000 ! IF HI-ORDER OVERFLOW 
' eee : then | 
5 in 
' 772 3 < * 2) = .C. ADDR + 2) - 1000; ! SUBTRACT 1000 
j 773 3 (.ADDR + 4) = .C.ADDR + 4) + 1; ' INCREMENT MBYTES 
‘ 774 2 end; 
5 775 2 
‘ 776 1 end; ! ROUTINE OVF_CHK 
.SBTTL OVF.CHK MULTI-DRIVE TEST ROUTINES 
000000 010146 OVF . CHK: : 
MOV R1i,-C(SP) ; S74 
000002 016600 000004 MOV 4(SP),RO ; ADOR,* S76 
701 000002 MOV #2,Ri : 57 
ADD RO,R1i 
027 001750 1$: CHP CRO), 01750 ; S7¢~ 


#1750, (RO) 
CR1) 


3 576 
3 
4 i$ 3 576 
001750 2s: CR1),#1750 : S76 
8L0 3¢ 
001750 SUB #1750, (R1) ; 577 
000004 INC 4(RO) : S77 
i 3$: MOV (SP)+,R1 : 574 
7 RTS PC 
@: 


3785 





iz 22 words, Routine Base: *sCODE$ + 20240 
teck depth per invocation: 2 words 





PDA BD BD 6G GE GNI PIP AD GAGE GE GE > DW D GE GE GAGA AD AVL G8 GL Gd @ BD D VAG WII IDO ID be ee 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


GLOBAL routine ROUND_OUTPUT : novelue = 


Se 

§ 

$- 
begin 


if .T.ADOR (TOT_READS_HI]) gtru 9999 
then 


begin 


if .T_ADDR [TOT_READS_LO) lssu 999 
then 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


THIS ROUTINE ROUNDS THE TOTALS TO FIT PRINT POSITIONS. 


a prs of BS T_READS_HI = .T_ADOR TOT_READS_HI] - 1; 
TOT_READS_LO TL TOT_READS_LO) + 1000; 
T_ADOR ng (01. -READS_LO} = .T_ADDR [TOT_READS_LO) - 
tal T_READS_HI] = .T_ADOR [TOT_READS_HI] - 


if .T_ADDR ([TOT_WRITES_HI) gtru 9999 
then 


begin 


if .T_ADDR (TOT_WRITES_LO) lesu 999 
then 


Tope tore -WRITES_HI 
ae 


TOT_WRITES_LO 


TOT_WRITES_LO) = .T_ADOR 
TOT_WRITES_HI} = .T_ 


= .T_ADOR 
= .T_ADDR 


TOT_WRITES_HI]} - 1; 
TOT_WRITES_LO)} + 1000; 


TOT_WRITES_LO) - 999; 


TOT_WRITES_HI} - 9999; 


if .T_ADOR (MTOT_BYT_RED) gtru 999 
then 


begin 


Zo -T_ADDOR (TOT_BYT_RED_HI) leeu 999 


a RooR (rot eyT RED) = 


TOT_6YT_RED_HI) id i 


i? <i {TOT_BYT_REC_LO) lesu 999 
then 


MTOT_BYT_RED) - 
(TOT_BYT_RED rah + 1000; 


TeRooR (TOT_BYT_RED_HI] = .T_ADOR (TOT_BYT_REO_HI) - 1; 





VAX-11 Blies-16 V4.1 
DISK SUSER2: (ML YNAR 


SEQ 04 
Page 


-S82 
*2RQ)ZROAHO. B.2;35 


C 


SEQ 0426 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-58 Page 16 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. SAI ZROAHO. BL2;3 (43) 
; $830 4 T_ADDR (TOT_BYT_RED_LO) = .T_ADOR (TOT_BYT_RED_LO) + 1000; 
; 
; 5832 4 if .T_ADDR [TOT_BYT_RED_HI) lssu 999 
’ 5633 4 then é 
; 5634 5 ay 
; $8635 5 2 farer BYT_RED) = .T -ADOR (MTOT_BYT_RED) - 
is zeus 3 TOT_6YT_RED_HI] = .T_ADDR (TOT_BYT_RED ar}! + 1000; 
$ 
| ; 5636 3 end; ' 
i 5839 3 i 
; $8640 3 T_ADDR [TOT_BYT_RED_LO) = .T_ADDR [TOT_BYT_RED_LO) - 999; | 
+ 5641 3 T_ADDR [TOT_BYT_RED_HI] = .T_ADDR ( TOT_BYT_RED_ “HI, - 3 
; 5842 3 T_ADOR (MTOT_BYT_RED) = .T Tho (MTOT_BY1_%ED)  - 
; 5843 2 end; 
H 5644 
; $645 2 if .T_ADOR (MTOT_BYT_WRT) gtru 999 
j 5846 2 then | 
s 5647 53 begin 
5 5646 3 
; $5849 3 if .T_ADDR [TOT_BYT_WRT_HI]} lssu 999 
i rt 3 then 
' +H i 4 pogin 
, o32 4 DOR ({MTOT_BYT_WRT] = .T -ADOR (MTOT_BYT_WRT) - 
, 4 : TAOOR TOT_BYT_WRT_HI) = .T_ADDR [TOT_BYT_WRT ‘ary’ + 1000; 
3 
i 655 3 
i is 3 if vies ({TOT_BYT_WRT_LO) lssu 999 
i 7 @ then 
r 5658 4 
; 5859 4 TOT_BYT_WRT_HI) = .T_ADDR [TOT_BYT_WRT_HI]) - 1; 
: $860 4 TOT_BYT_WRT_LO T_ADDR [{TOT_BYT_WRT_LO}) + 1000; 
° 

5 862 4 if .T_ADOR (TOT_BYT_WRT_HI) lssu 999 

; 5663 4 then 

' Secs 5 Ys 

: 865 5 DOR [MTOT_BYT_WRT] = .T -ADOR (MTOT_BYT_WRT] - 

' 866 5 ADDR (TOT_BYT_WRT_HI} = .T_ADOR (TOT_BYT_WRT uri: + 1000; 

; 667 4 ne, 

i 5668 3 end; 

’ 5869 3 

' 870 3 T_ADDR [TOT_BYT_WRT_LO) = T-ADDR (TOT_BYT_WRT_LO] - 999; 

, 871 3 T_ADDR [TOT_BYT_WRT_HI 7 erty “BYT_WRT_HI} - 999; 

; 5872 3 T_ADOR (MTOT_BYT_WRT) = .T_ADOR (MTOT_BYT_WRT) - 999; 

: 587 2 end; 

$ 5874 2 

: 5875 1 end; 
-SBTTL ROUND.OUTPUT MULTI-DRIVE TEST ROUTINES 
000000 004137 0000006 ROUND . OUTPUT : 
JSR R1, $SAVE3 ; 
000904 013700 0000006 MOV T. ADDR ,RO ; 


000010 012702 000020 MOV #20,R2 





5777 
$785 


—————— ” 


= ——<—— 


060001 
021127 


eee ee ee 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 
023417 

000016 

001747 


001750 
001747 1$: 
2$: 


001750 
001747 3$: 
000036 4$: 


000032 S$: 


001747 6$: 


7$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


RO,R2 
CR2), #23417 


$16 ,R1 
iR1), 01747 
is 


CR2) 
#1750,CR1) 


RO, 

CR2), 423417 
#24 ,R1 
RO,R1 
(R1),01747 
3$ 


RO,.RS 
CR3), 01747 
7$ 

#34 ,R1 
CR1),01747 
S$ 

CR3) 
#1750,(R1) 
#32 ,Re2 
RO,R2 
CR2), 01747 
6$ 


CR1) 
@1750,.(CR2) 
ode lee 


RO, 

CR2), 01747 
10$ 

#42,R1 
RO,R1 
CR1), 01747 


—_———— ee ee ee - 


X-11 Bliss-16 V4.1-5 





82 we 
DISK SUSERS: (MLYNAR .ZRQ)ZRGAHO.BL2;3 


164 
oe 43) 





a 


s+ Routine Size: 
:; Maximum stack 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


001750 
000040 
001747 


114 words, 
cepth per invocation: 


Routine Base: 
r 


RTS 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


8$ 
CR2) 
#1750,(R1) 


(RO), #1747 
9$ 


CR1i) 
#1750, CRO) 
CR1),01747 


$CODE$ + 20314 


— — — oe - -—-- 


SEQ 0428 


VAX-11 Bliss-16 V4.1-582 Page 165 
DISKSUSER2: (MLYNAR. FRAT ZROAHO. BL2;3 O9e 43) 
; 5852 
: 5853 
3 5856 
: 5859 
; 5860 
; 5862 
: see 
$ 
3 58706 
; 537 
; 5872 
$ $77 


bie 


oF oe SF OF SF OF SF SF SF SF GH SF OF SF OF Ge GF HE SF SF Se SF GF GF GF Ge GF GF SE Ge Gr GF Be Ge SF Ge GF BF Ge Ge Ge Gs Se GH OF Gs Os Ge Se Ge Os Gs os 


Ut & B & GIG GE Gt GA Gh GG Gh Gh GE P00 0 10 GED POPU POTD POPU POD ND be ee ep ee ee 





——<—— -- —_—_— —_— 
———— LLL LC LL LLL LL TL ELC A CE Ct et ttt te ee —— 


SEQ 0429 
RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-S5é2 


P 166 
MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [MLYNAR, TRO} ZROAHO. BL2;3 matey S 


GLOBAL routine HOST_WRT_CHK = 


q 
> THIS ROUTINE IS CALLED FROM TO.RETPKT FOR ALL I/O TRANSFER RETURN 
PACKETS WITH *SUCCESS” STATUS CODES. BUT ONLY IF THE HOST URITE-COMPARE 
OPTION WAS SELECTED BY THE OPERATOR: 
IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE 
PACKET INDEX CRP INOX) IS SAVED IN THE CONTROLLER: S RETURN PACKET SAVE 
; AREA (RP_SAVE). OTHERWISE, THE PACKET IS A READ, SO ITS ASSOCIATED 
; WRITE PACKET IS REMOVED FROM THE SAVE AREA, AND'A BYTE-BY BYTE 
COMPARISON IS PERFORMED ON THE TWO I/O BUFFERS. ANY DIFFERENCES 
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR. 
IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
RP~INDX - INDEX OF THE CURRENT RETURN PACKET 

begin 

local 


I/O BUFFER ADDRESS 
I/0 BUFFER ADDRESS 
I/O BUFFER ADDRESS 
BYTE COUNT 


BUFF1 : ref block [MAX_XFER_SIZE, pyset. 
BUFF2 : ref block (MAX_XFER_SIZE, byte 
BUFFW, 

COUNT : word, 

FLAG : byte initial (byte (TRUE)), 
index : signed word; 


if .RP_ADDR CENDCOD) eql COP_WRT or OP_END) ! IF WRITE OPERATION 


n 
as FLAG = FALSE ! DON’T CALL SWEEP FROM IO_RETPKT 
eise 


if €.RP_ADDR [ENDCOD) eql (OP_RD or OP_END)) and 
CCindex = RPS_REM ()) geq 6) 


IF ASSOCIATED WRITE PACKET IS FOUND 


then 
in 
BUFFW = RETPKT index, BUFF_O); ! ADDR OF ADDR OF WRITE I/0 BUFFER 
BUFF1 = ..BUFFW ! ADOR OF WRITE I/0 BUFFER 
BUFF2 = “RP “ADDR BUFF 03) ! ADDR OF READ I/0 BUFFER 
COUNT = .RP_ADOR BCNT_LO); ' BYTE COUNT 


incr I from 1 to .COUNT do ! FOR EACH BYTE IN BUFFERS 
+ tS aoe kaha 8, 0> eql .(.BUFF2)<0, 8, O> ! IF BYTES COMPARE O.K. 


begin 
BUFF 1 = .BUFFI «+ 1; ' ADVANCE WRITE BUFFER ADDR 
ae = .BUFF2 + 1; ' ADVANCE READ BUFFER ADDR 
en 

else 
begin ' ELSE - COMPARE ERROR 


_ a ee ee ee 


10-Oct-1985 09:41:47 


VAX-11 Blies-16 V4.1-562 ~~ 
DISK $USER2: ([MLYNAR. TRO} ZROAHO. BL2;3 


$i, * 1; 
ar PRINT ERROR INFORMATION BEFORE 


HAR ERROR CALL 
IF FLAG:HOE IS SET, em) ERROR INFORMATION 
Is PRINTED BEFORE HALT 


I/0 REQUEST FAILED 


IF ERROR COUNT EXCEEDED 
DROP UNIT 


NO NEED 10 CONTINUE 
IF COMPARE ERROR 


IF ASSOCIATED WRITE RETPKT WAS FOUND 


RCUTINE HOST_WRT_CHK 


; *,FLAG 


; FLAG 


; INDEX 
; INDEX,« 


* ,BUFFW 
BUFF W,BUFF1 


ZRQGAMS RD/RX EXERCISER 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 
; 5929 4 T_ADDR [ERR_HARD) = 1 .AQOR {ERR_HARD]) + 
 § ey : T_ADDR [ERR_HRD_HST] = .T_ADDR (ERR_HRD “HS 
: 
: 5932 4 EMS_CMP CRETPKT + (.index * RP_LEN « 2)); 
(3s 3933 4 
_ 5934 4 
| s 3935 4 
|; $936 4 if .APT_MODE 
$ 5937 4 then 
’ 5938 4 ERR_HRD_RTNE_APT (42) 
$ 5939 4 else 
' Seas : ERR_HRD_RTNE (42); 
; 
3 Seat ; 'MMM EMS_CMP CRETPKT + (.index *# RP_LEN #@ 2)); 
: 
‘ 5944 4 if .T_ADDR [ERR_HARD]) gequ .SWP_ERROR 
5 5945 4 then = 
$ 5946 5 agin 
: 5947 5 {.L$LUN) = DU_HERR; 
; 5946 5 DODU (.L$LUN); 
5 5949 4 end; 
| Be 2 
’ exitioop;: 
: 5952 3 end; 
; 5953 3 
$ 5954 2 end; 
: 5955 2 
i 5956 2 return (.FLAG); 
r 5957 1 end; 
gags HOST .WRT.CHK MULTI-ORIVE TEST ROUTINES 
000000 004137 000000G HOST .WRT.CHK: 
JSR Ri, $SAVES 
000004 005746 TST -(SP) 
000006 112705 000001 MOVB $3. R5 
000012 013700 MOV RP .ADDR,RO 
000016 126027 000014 000242 CMPB 14(RO), 6242 
001002 BNE 1$ 
105005 CLRB RS 
000030 000511 BR B$ 
000032 126027 000014 000241 1$: CrPB 14(RO), 6241 
000040 001105 BNE 83 
000042 004737 O00000V JSR PC .RPS.REM 
000046 005700 TST RO 
000050 1 BLT $ 
000052 010046 MOV RO, -C(SP) 
000054 012746 000054 MOV -( SP) 
000060 004737 000000G JSR PC, BL $MUL 
000064 010066 000004 MOV RO,4(SP) 
000070 700 000024G ADD #RETPKT+24,R0 
000074 011001 MOV CRO),R1 
000076 013700 000000G MOV RP .ADDR ,RO 





0430 
age 16 
(44) 


‘ 
' 
; 
[ 
’ 
' 





eee = oe ~~ 


SEQ 0431 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 Page 168 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16  DISK$USER2:[MLYNAR.ZRQ)ZRQAHO.BL2;3 (44) 
000102 016002 000024 MOV 24(RO),R2 ; *,BUFF2 
000106 016004 000020 MOV 20(RO).R4 ; &, COUNT $917 
000112 005003 CLR R3 “. 5919 
000114 000453 BR 63 
000116 121112 2$: CMPB Es (R21), CR2) ; BUFF1,BUFF2 5921 
900120 001003 BNE 3$ . 
| 000122 i INC Ri ; BUFF 5924 
| 000124 005202 INC R2 ; BUFF2 5925 
000126 000446 BR 6$ ; 5921 
000130 013700 0000006 3$: MOV T. ADDR, RO ; 5929 
000134 005260 000014 INC 4(RO) | 
000140 i 000051 INCB 51(RO) , 59 
000144 016616 MOV 4(SP), (SP) ; 59 
000150 062716 000000G ADD @RETPKT, (SP) 
000154 004737 JSR PC, EMS.CMP 
000160 032737 000001 001254: BIT APT. , 59 
000166 001 BEQ 4$ 
000170 012716 000052 MOV #52, (SP) ; 59 
000174 737 COO0000V JSR PC, ERR.HRD.RTNE.APT 
000200 000404 BR 5§ ; 59 
000202 012716 000052 43: MOV #52,(SP) ; 594 
000206 004737 O000000V JSR PC.ERR.HRD.RTNE 
000212 013700 000000G S$: MOV : : ; Ss 
000216 026037 000014 0000006 CMP 14(RO).SWP. ERROR 
000224 103412 BLO 7$ 
013700 0000006 MOV L$LUN,RO ; 594 

000232 112760 000004 0000006 MOVB 4,DURC(RO) 

240 104451 TRAP 3s « Si. ; 594 
000242 000403 BR 7$ ; 592 

244 00520 6$: INC R3 ; 591 
000246 0 CMP R3.R4 ; I,COUNT 
000250 003722 BLE 

022626 7$ CMP (SP)+,(SP): : 591 

000254 8$ CLR : 5 
000256 BISB R5,RO ; FLAG, *« 
000260 005726 TST (SP) ; 587 
000262 7 RTS 


; Routine Size: 90 words, Routine Base: 


+; Maximum stack depth per invocavion: 11 words 


$CODE$ + 20660 


ee a Ne oe ail 


PMMVUN UUW NN VIN NNDDD Pb he pe pe 





——— ee ee 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-562 Page 169 
MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK$SUSER2: [MLYNAR. ZRQ)ZRQAHO.BL2;3 (45) 
GLOBAL routine SWEEP : novalue = 
Se 
' THIS ROUTINE IS CALLED FROM IO_RETPKT AND OTHERS TO DEALLOCATE THE 
' RESOURCES ASSOCIATED WITH THE CURRENT RETURN PACKET. THIS INCLUDES THE 
' PACKET ITSELF AND THE I/O BUFFER. IN ADDITION, IF THE HOST IS 
' PERFORMING WRITE-COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ 
' FUNCTION, THEN T CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR , 
' THE ASSOCIATED WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO 8E 
DEALLOCATED. 
' IMPLICIT INPUTS: | 
‘ RP_ - ADDRESS OF CURRENT RETURN PACKET 
RP_INDX - INDEX OF CURRENT RETURN PACKET | 
begin | 
lecel 
index : signed word; 
if ¢.RP_ADOR {ENDCOD) and OP_MSK) eal OP_RD * IF READ OPCODE OR ENDCODE 
| 
if O2t_t87 (SWP_FLAGS, SWF _HWC) ! IF HOST IS DOING WRITE-COMPARES 
if Cindex = RPS_REM ()) geq 0 ! IF ASSOCIATED WRITE RETPKT IS FOUND 
in 
PUT TO BUFF CRETPKT [. index, BUFF_0]); ! RETURN WRITE I/0 BUFFER TO POOL 
PUT_RETPKT (. index); ' RETURN WRITE PACKET TO POOL 
é 
PUT_IO_BUFF C(RP_ADDR (BUFF_0O)); ' RETURN CURRENT I/0 BUFFER TO POOL 
PUT_RETPKT (.RP_INDX); ' RETURN CURRENT RETPKT TO POOL 
end; ! ROUTINE SWEEP 
.SBTTL SWEEP MULTI-DRIVE TEST ROUTINES 
SWEEP:: MOV R1,-(SP) : 5 
Vv j G ; 597 
000014 MOVB 14(RO),RO 
177600 BIC $177600,RO 
000041 cre RO, #41 
000040 000000G BIT 640, SWP .FLAGS ; 5982 
000000V JSR PC,.RPS.REM ; 598 
MOV RO,R1 ; *, INDEX 
BLT 1$ 
MOV R1,-CSP) e INDEX ,# 5988 


000054 MOV @54,-(SP) 


388 
~d 
on 


s Routine Size: 


RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 


000000G 
000024G 


1$: 


45 words, 


Routine Base: 
+ Maximum stack depth per invocation: 4 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


BL $MUL 
RETPKT #24, RO 
RO, (SP 
PC, PUT .I0. BUFF 


PC; PUT .RETPKT 


(SP)+, CSP) 
RP. ADOR. -(SP) 


SP) 
PC, sPUT. -RETPKT 
C(SP)+,R1 
PC 


$CODE$ + 21144 


VAX-11 Bliss-16 V4.1 


é INDEX, # 


582 mx 
DISK $USER2: ([MLYNAR. 7RG}ZROAHO. BL2;3 


170 
oe a5) 


SEQ 0434 


return .index; 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4. Page 171 
vo2.3 MULTI-ORIVE TEST ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: (MLYNAR. +Ra1ZROAHO. BL2;3 (46) 
3 5995 i GLOBAL routine RFS_REM = 
oe 
; -* 
5. §998 1 ‘ THIS ROUTINE SEARCHES THE CURRENT CONTROLLER’ S RP_SAVE AREA FOR A 
's §999 1 ' RETURN PACKET WHOSE COMMAND REF ERENCE NUMBER (CRN) IS ONE LESS THAN THE 
4 6000 1 ' CRN OF THE CURRENT RETURN PACKET (I.E SEARCH one FOR THE SAVED WRITE 
's, 6001 1 ' OPERATION ASSOCIATED WITH THE CURRENT (READ OPERATION). IF FOUND, 
| 3 6002 1 ' SAVE ENTRY IS CLEARED (TO -1) AND THE RETPKT INDEX OF THE WRITE 
1 4 6003 4 OPERATION IS RETURNED TO THE CALLER ) 
| 3 . 
:; 6005 i ' IMPLICIT INPUTS: 
; 6006 i RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET | 
$ 600 : i 
+; 6008 i ' OUTPUTS: | 
; 6009 1 ' INDEX (VALUE OF THIS ROUTINE) - INDEX OF THE RETPKT CONTAINING 
; 6010 1 : A CRN WHICH IS ONE LESS THAN THE CURRENT 
; 6011 1 !. | 
3 60i2 1 
s 6013 2 begin 
r 6014 2 
s 6015 2 local : se 
: rte : index : signed word initial (-1); ! ASSUME NOT FOUND 
; 
; 6018 2 incr COUNT from 0 to RP_CNT - 1 do ! FOR EACH ENTRY IN RP_SAVE 
é 
: 6020 2 f (.RP_USE [.COUNT] eql .CCTLR) an ' IF THIS IS A VALID RETPKT INDEX 
' 6021 3 C .RETPKT [ . COUNT, ENDCOD ) eql COP. WRT or OP_END)) 
rs 
; 6024 3 if CC. RETPKT .COUNT, CRF_LO) eql (.RP_ADDR (CRF_ at 92 - 1)) and * IF CORRECT CRN 
: 6025 2 (.RETPKT {.COUNT, CRF_HI — RP aye (CRF_HI})) or 
+ 60 3 CC RETPRT .COUNT, CRF_HI C.RP_A , SERF HI] - 1)) and 
; 6027 3 -RETPKT ({.COUNT, CRF (+33 veal Sonyaae 
:; 6026 3 aS RP_ADDR [{CRF_LO) eal 0 
: 60 2 t 
+ Sos 3 "begin 
; 6031 3 index = .COUNT; ' INDEX TO BE RETURNED 
; 6032 3 exitloop; * DONE 
t 6033 2 end; 
$ 6034 . 
t 
; i end; ' ROUTINE RPS_REM 
.SBTTL RPS.REM MULTI-DRIVE TEST ROUTINES 
000000 004137 0000006 RPS .REM:: 
JSR R1, $SAVE4 ; 
012704 177777 MOV 0-1,R4 ; *, INDEX 
000010 005003 CLR R ; COUNT 
000012 116300 000000G i$: MOVB RP .USECR3),RO ; #(COUNT),# 
000016 020037 000000G CMP RO,CCTLR 
000022 001053 BNE 4$ 
010346 MOV R3,-CSP) ; COUNT, # 


a 


s Routine Size: 


RDO/RX EXERCISER 


MULTI-DORIVE TEST ROUTINES 


000054 
000000G 


000014G 000242 


000004G 177777 
000004 


000007 


59 words 4 


2s: 


3$: 
4$: 


53: 


Routine goood 
: Maximum stack depth per invocation: 


RTS 





R 

RETPKT +4(RO),R2 
RETPKT +6(RO),6(R1) 
6(R1),R2 

R2 

ao evens ome 
a eek 


4(R1) 
4$ 
R3,R4 
S$ 
RZ 
ee 
R4,RO 
PC 


$CODE$ + 21276 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


De 


SEQ 0435 
VAX-11 Bliss-16 V4.1-S562 Page 172 
DISK $USER2: [MLYNAR. 7RQ}ZROAHO. BL2;35 (46) 


; COUNT, 6024 


; COUNT, INDEX 603 
; 6030 
; COUNT 601 
rH COUNT , « 

; INDEX,« po 


a 


5 
% 


SuEDEDPIREREDESEERENEEREDEEEEDEEEE 


Ey : 


ne 





PMP PMMA PPP PONDD AD be Pt ee ee be ee pe pe 


010146 
004737 
005001 


ee ee ee ee oe eee - 
- ~ . 


SEQ 0436 


P 173 
ee 47) 


VAX-11 Bliss- 


10-Oct-1985 09:41:47 4.1-562 
DISK SUSER? PEMLYNAR. ZRQIZROAHO .BL2;3 


RDO/RX EXERCISER 
10-Oct-1985 09:21:16 


MULTI-DORIVE TEST ROUTINES 
GLOBAL routine DK_RETPKT : novalue = 


> 


THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT 
THE “DRIVER” PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING | 
FATAL DEVICE ERRORS. 


FOR FATAL DEVICE ERRORS, THIS ROUTINE RELEASES ALL RESOURCES HELD BY 
THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL 
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED. 


IMPLICIT i*?uTS: 
RP_INDX - INDEX OF THE CURRENT RETURN PACKET 
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 

THE CURRENT CONTROLLER'S CST 


CST_ADOR - ADDRESS OF 
E€CTCR - CURRENT CONTROLLER NUMBER 


| 
f 
\ 
| 


begin 
PUTA_BUFF (); ! RELEASE ALL I/0 BUFFERS HELD BY CONTROLLER 
incr index from 0 to RP_CNT - 1 do ' FOR EACH ENTRY IN CONTROLLER’S RP_SAVE 
if .RP_USE (.index] eql .CCTLR ! IF VALID RETPKT INDEX 
PUT_RETPKT (. index); ! RETURN RETPKT TO POOL 
Q@Io fcc CCTLR) = ! CLEAR NO. OF OUTSTANDING QI0s 
CST_ADOR (STATE 3 = OFFLINE; ! MARK CST OFFLINE 
DROP _CTLR (.CCTLR, DU _CFATAL); ' DROP CONTROLLER‘'S UNITS 
PUT_RETPKT (.RP_INDX); ! PUT BACK RETPKT 
end; ' ROUTINE DR_RETPKT 
.SBTTL OR.RETPKT MULTI-DRIVE TEST ROUTINES 
DR .RETPKT: : 
MOV -(€SP) ; 
0000006 JSR pe? ‘PUTA. BUFF ; 

CLR RR ; INDEX 
000000G 1%: MOVB RP. UsE(a1), RO ; *#(INDEX),« 
000000G CMP RO.CCTLR 

BNE 2s 

MOV R1,-(SP) ; INDEX,« 
000000G JSR PC put .RETPKT 

a 
23: INC Ri ; INDEX 
000007 Ss R1, 07 ; INDEX,« 
000000G MOV CCTLR,R1 ; 
000000G CLRB Q@IO(Ri) 
000000G MOV CST. ADDR ,RO ; 








rr re a a ~ — 


SEQ 0437 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAK-11 Bliss-16 v4.1-562 Page 174 
vo2.3 MULTI-DRIVE TEST ROUTINES 10-Oct-1985 09:21:16  OISK$USER2:(MLYNAR.ZRQ)ZRQAHO.BL2;3 (47) 
| 000056 042760 100000 000002 BIC #100000, 2(RO) 

000064 010146 MOV Ri, -(SP) , 6068 
000066 012746 000006 MOV 06,-(SP) : 
000072 004737 000000G JSR PC. OROP.CTLR 
000076 013716 000000G MOV RP . INDX. (SP) : 6069 
000102 004737 000000G JSR PC, PUT .RETPKT 
000106 CMP (SP)+, CSP) ; 605 
000110 012601 MOV (SP)+,R1 ; 6037 
000112 000207 RTS PC | 
s Routine Size: 38 words, Routine Base: ‘sCODE$ + 21464 
+ Maximum steck depth per invocation: 4 words 





ZRQAMS RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 8B 
















lies-16 V4.1-562 Page 175 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $SUSER2: [MLYNAR . ZRQJZRQAHO .BL2;3 (48) 
: 6073 : Sebttl ‘RDRX INTERRUPT SERVICE ROUTINES’ 
; 
607 1 fe 
6074 i H THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE FOR EACH DEVICE 
t 6075 1 H CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE 
' 6076 i ! APPROPRIATE CONTROLLER NUMBER-INTO “ICTLR”. ALL SERVICE ROUTINES THEN 
; rr A ; BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE. | 
; 6079 1 | 
' 6060 2 BGNSRV —_ 
5 6061 : ICTLR = 
r oss * 
5 60635 i F 
-SBTTL AZINTO RDORX INTERRUPT SERVICE ROUTINES 

goneee 010046 AZINTO: : MOV RO, -CSP) : 

37 000104’ CLR ICTLR : 
000006 004737 CO0000V JSR PC, AZINT : 
000012 012600 MOV CSP)+,RO : 
000014 000002 RTI 
+ Routine Size: 7 words, Routine Base: *sCODE$ + 21600 
+ Maximum steck depth per invocation: 2 words 


oa 
~ 


< 
oO 
~ 
us 


KPNMNUUUINDNWUNNNRNNNNNND er Pee eee ee 


RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


— TL 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


GLOBAL routine AZINT : novalue = 


a 


n 
$8" soo 
ICST_ADDR = CST + (.ICTLR * CST_LEN * 2); 


I 1; 
ICOM_ADDR = COMM_AREA + (.ICTLR * COMM * 2) 
IDCT_ADOR (SA. SAVE) = ” TRORX _ADOR rRCSAS » “ALL : 


-IDCT_ADDR (IG_INT) 
en 


if 
th 


if BIT_TST CIDCT_ADDR [SA_SAVE), SA_ERR) 


THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RORX CONTROLLERS. 

AFTER CALCULATING THE DCT ADDRESS NTE THIS 
ROUTINE WILL SAVE THE CURRENT CONTENTS OF THE SA REGISTER IN THE OCT. 
THEN, IF THE “IGNORE INTERRUPT” BIT IS SET, NO FURTHER ACTION IS TAKEN. 
OTHERWISE THE SA VALUE IS CHECKED FOR A FATAL ERROR, AND THE COMMAND 
AND RESPONSE RINGS ARE POLLED. 


GET OCT ADDRESS 
GET CST ADDRESS 
ET RORX 


ADDRESS 
GET COMM_AREA ADDR 
SAVE SA REGISTER 
IGNORE INTERRUPT? 
RETURN IF INTERRUPTS IGNORED 


IF FATAL ERROR 


= DCT + C.ICTLR * DCT_LEN 22s 
X_ADDR = .ICST_ADDR [IP 


return; 


then 
eal FATAL_ERROR () 
se 


end; 


L COMMAND RING 


UL CRING C); POL 
POLL RESPONSE RING 


POLL “RRING (); 
end; 


-SBTTL AZINT RORX INTERRUPT SERVICE a 
AZINT: : nov “ish” 


MOV ICTLA.R1 : 
MOV Ri, -(SP) 

MOV #22, -(SP) 

JSR PC, BLSMUL 

ADD eDCT,RO 

MOV RO, IOCT.ADOR 

MOV 1,CSP) : 
JSR PC,BL$ 

ADD @csT, 

MOV RO, ICST.ADOR 

MOV CRO), IRDRX. ADDR ; ICST.ADDR,« 
MOV R1,(SP) ’ 


MUL 
ADD @COMM. AREA, RO 





VAX-11 Bliss-16 V4.1-582 
DISKSUSER2: [MLYNAR. FRaIZROAHO. BL2;3° 


—. 0439 
age 176 
0949) 


a  « 


EE ES Ah TT TE 
- 


6097 


+ Routine Size: 


| 
+ Maximum stack 
; 6116 1 


ee 


RD/RX EXERCI 


SER 
RORX INTERRUPT SERVICE ROUTINES 


000074’ 
000100‘ 
000000G 


2 000010 - 
000010 000002 


000000V 1%: 
000000 
000012 2s: 


64 words, 


Routine Base: 
depth per invocation: 7 words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


R1,#-100000 
PC ,FATAL .ERROR 
2$ 


PC POLL .CRING 
PC ,POLL .RRING 
#12,SP 


(SP)+,R1 
PC 


$CODE$ + 21616 


VAX-11 Bliss-16 V4.1-58 


; *,RC.REG 

; RC.REG,* 

; *,IDCT.ADDR 
. 

° 


ee? 
DISKSUSER2: [MLYNAR. 720) 2ROAHO. BL2;5 


177 
oee 49) 


6100 


<N 
o 
~N 





6150 


HSAAMAOSOUUUUU 
AA hue oo He 
PO ee ee ee ee he he he ee he he he ee ee ee ee pe he ee ee ee pe ee ee ee ee ee ee ee ee be be be ee pe ee be 


Vitor 


AAAAAAAAMAMRAAAMAGH 
eed aied ad ade ee 


a TT ee 


SEQ 0441 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 178 
RDORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $SUSER2: ([MLYNAR. TRO} ZROAHO. BL2;3 (50) 
11 ay ROUTINE DUP_RSP : NOVALUE = !Z2ZZ 


> 


THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH DUP RESPONSE 

ITS GENERAL PURPOSE IS TO ACT ON A DATAGRAM OR SEQUENTIAL MESSAGE. 
IF THE MESSAGE TYPE IS SEQUENTIAL, THE ROUTINE COPIES 

CONTENTS OF THE MESSAGE ENVELOPE INTO A RETURN PACKET SO THAT THE 
ENVELOPE CAN BE RETURNED TO THE CONTROLLER. 


IMPLICIT INPUTS: 
ICTLR - INTERRUPTING CONTROLLER NUMBER 
PKT_ADDR - ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE 
begin 
local NDEX igned F | 
: st ec word, 
SEBUG i !22Z 
SRC_ADOR, 
DST_ADDR, 


R_ADOR : ref block (RP_LEN, word) field (RP_FIELDS); 
1PRINTX (DER34); 


incr COUNT from O to PKT_CNT - 1 do 


if €.MSCP_PKT ({.COUNT, CRN_LO) eql .IPKT_ADDR [CRN_LO)) and * IF THIS IS THE ASSOC CMD 
(.MSCP_PKT [.COUNT, CRN_HI eql .IPKT_ADDR can HI)) and 
( .MSCP -COUNT, PKT_LO] nege . IPK PRT ADDR LO)}) 
(¢.MSCP_PKT {. COUNT. ODE) an 6p END) ne > Be! and 
be MSCP_PKT (.COUNT, CONNID) J eal <e3DBUP 5 one 
aS IPKT_ADDR [OPCODE] and OP_END) eal OP_END) 
hn in 
P. ENDEX = COUNT; ' SE) PKT NUMBER 
exitloop; 
end; 
if .P_INDEX lss 0 ! IF COMMAND NOT FOUND 
then 


in 
PRINTF (DBM108, .IPKT_ADDR [(CRN_LO)); $ UNKNOWN COMMAND REF. NUMBER 
_ 
end; 


4 CR_LINDEX = GET_RETPKT (.ICTLR)) lss O ! IF RETPKT IS NOT AVAILABLE 
en 


VEBUG = TRUE 7g SEE IF THIS PATH TAKEN 22Z 
! PRINTF (D0BM112) “DUP-RSP: RETPKT NOT AVAILABLE“ 222 
one 
eRe a ADDR = .IPKT_ADOR + SET UP COPY CSKIP OVER PKT DESC 


6; ) 
R ADDR = DST_ADDR = RETPKT + (.R_INDEX « ‘RP LEN # 2); ! START OF ALLOCATED RETPKT 


ee ere ee on es . - 


ome ewe ere + 


ZRQAMS RD/RX EXERCISER 

vo2.3 RORX INTERRUPT SERVICE ROUTINES 

: 6170 1 : 2 

s 6171 1 : incr COUNT from 1 to RP_LEN do 

+ Gi78 1 DET ADOR = ..SRC_ADDR 

$ 1 : . Dw ; 
(3 6174 1 : DST_ADDR = .DST_ADDR + 2; 
i 6175 1 $ SRC_ADDR = .SRC_ADDR + 2; 
| 8 6176 1 ! end; 

$ 6177 i : 

$ 61768 1 H IN_IODG ( .R_INDEX); 

$ 6179 1 H end; 

; 6180 1 H 

+ $ie2 i | if .PLINDEX geq 0 

; ' iv sP. geaq 

: 6183 1 s 

$ 6164 1 : PUT_PKT (.P_INDEX); 

$ 6185 1 H 

$ 6166 1 $ end; 

’ 6187 i 


4 
10-Oct-1985 09:41:47 VAX-11 Bliss-16 Na sRate ae ices 319 
10-Oct-1985 09:21:16 DISKSUSER2: (MLYNAR .ZRQ)ZROAHO.BL2;3 (50) 


! COPY 1 WORD 

! ADVANCE DESTINATION ADOR 
! ADVANCE SOURCE ADOR 

! COPY LOOP 


! PUT RETPKT INDEX INTO I0DQ | 
! IF RETPKT WAS ALLOCATED | 
! IF ASSOC CMD PKT WAS FOUND | 
! RETURN COMMAND PACKET TO POOL | 
! ROUTINE DUP-RSP 


°+ of oe ©* oe oe 





PON WI OIUI IGEN ATO PURO POPU POND WWIII UNNI RNNRRNA ND bb be be ee be pe pe pe 


SEQ 0443 
RO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-56 Page 180 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [MLYNAR. TRO} ZROAHO. BL2;3 (51) 


GLOBAL routine FATAL_ERROR : novelue = 


- 


THIS ROUTINE IS CALLED BY THE INTERRUPT SERVICE ROUTINE CAZINT) UPON 
Oe ree tae ot en can ie ERROR THROUGH THE DEVICE’ ig AD of 


THE EXERCISER, AND TO INFORM THE “PROGRAM” PORTION OF THE EVENT VIA 
RETURN PACKET. 


IMPLICIT INPUTS 
ICTLR - " INTERRUPTING CONTROLLER NUMBER 
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER’S OCT 
ed ADDR - ADDRESS OF INTERRUPTING CONTROLLER:S CST 
DRX_ADOR - ADDRESS OF INTERRUPTING CONTROLLER'S IP REGISTER 


index : signed word, 
U_SAVE : word; 


SA_REG = .IDCT_ADDR [SA_SAVE]); 


U_SAVE = .LSLUN; ! SAVE PRE-INTERRUPT CURRENT UNIT NUMBER 
c- ~ERR_TBL [. ICTLR. C_ERR_HRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD]) + 1; 
if .APT_MODE 
then 


PaRiL -~BOX_TESTNUM = 1; 
— -BOX_SUBTST = 0; 


L$LUN = .ICST_ADDR (OF_UN + OF_DATA, D_UNIT]; : 
ERRDF ( 14, EGO 14, EMS “14); ' FATAL CONTROLLER E 

L$LUN = SAV ! RESTORE PRE-INTERRUPT CURRENT UNIT 
DRV CTLERR-C ICTLR); + CLEAN UP DRIVER DATA FOR CONTROLLER 
if Cindex = GET_RETPKT (.ICTLR)) lss 0 ! TRY TO GET A RETPKT; IF FAILURE 

: PRINTF (DBM18) ! "FATAL_ERROR: RETPKT NOT AVAILABLE” 
eise 


nog the IF RETPKT WAS ALLOCATED 
RETPKT [.index, CONID) = CID_DRIVER; SET CONNECTION ID TO “DRIVER” 
RETPKT [. index, MESTYP] = MT_FATAL; FATAL ERROR 

RETPKT [.index, CTLR) = .ICTLR; CONTROLLER NUMBER 

IN_IODQ (. index); LOAD RETPKT INDEX INTO IODQ 
end; ! IF RETPKT WAS ALLOCATED 


end; ! ROUTINE FATAL_ERR 


! SET CURRENT UNIT TO FIRST IN CONTROLLER 
RROR 
-SBTTL FATAL.ERROR RORX INTERRUPT SERVICE ROUTINES 


eRe ee ee ae 


ern mee eee ee Ke — - 


=. 0444 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4. Page 181 
vo2.3 RDORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK$USER2:(MLYNAR. + Ra1ZROAHO. BL2;3 (51) 
000000 004137 0000006 FATAL.ERROR: : 
| JSR Ri, $SAVE2 : 6188 
000004 013700 000100’ MOV IDCT. ADDR, RO ; 6210 
000010 016037 000002 0000006 MOV 2(RO). SA.REG 
000016 013701 000000G MOV L$LUN,R1 ; #,U.SAVE 6211 
000022 13700 000104' nov ICTLR RO , 6212 
000030 0000006 INCB C.ERR.TBLCRO) ! 
000034 052787 000001 001254’ BIT 61, APT. MODE : 6214 
oo00ss 3 012777 000001 001256: MOV 1 SHALL. 80x. TESTNUM , 621 
000052 77 001260' CLR SHATL BOX. SUBTST 18 
000056 013700 000976’ 1$: MOV csT. : ; 6221 
000062 01 000006 MOV CRO) ,R2 
000066 302 SWAB 
000070 042702 177760 BIC #177760,R2 
000074 010237 000000G MOV R2,L$LUN 
000100 104455 TRAP Os ; 62221 
000102 16 .WORD 16 
000104 “WORD €GD.1 
000106 "WORD €MS.14 
000110 010137 0000006 MOV 1,L8L ; U.SAVE,« 
000114 013746 000104: MOV ICTLR, -(SP) ; 
000 004737 000000G JSR PC ,ORV.CTLERR 
000124 013716 000104’ MOV ICTLR, (SP) ; 
000130 737 000000G JSR PC GET .RETPKT 
000134 010001 MOV 0.R1 ; *, INDEX 
000136 002007 BGE 
000140 012716 0000006 MOV 0BM18, (SP) ; 
000144 012746 000001 MOV #1,-(SP) 
000150 010600 MOV “RO ; SP,* 
000152 104417 TRAP 
000154 000424 BR : 
000156 010116 2$: MOV R1,(SP) ; INDEX, « 
000160 012746 000054 MOV 054, -(SP) 
000164 004737 JSR C.8L$ 
000170 062700 000002G ADD @RETPKT +2, RO 
0C0174 112760 000003 000001 MOVB 43, 1(RO) 

013702 000104’ MOV ICTLR,R2 , 

2702 177760 BIC #177760,R2 

000212 112710 MOVB #60,(RO) 
000216 150210 BISB R2,(RO) 

010116 MOV 1,(SP) ; INDEX, « 
000222 004737 000000G JSR PC. IN. I0DQ 

022626 3$: CMP (SP)+,(SP)+ ; 
000230 000207 RTS Cc ; 
: Routine Size: 77 words, $CODE$ « 22016 


Routine Base: 
: Maximum stack depth per invocation: 7 r 





SEQ mi 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-5862 182 
v02.3 RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16  DISK$USER2:(MLYNAR. tROIZROAHO. 8L2;3 (52) 
: 6236 1 GLOBAL routine PGLL_CRING : novalue = 
ie tee 
§¢ 

; 6241 1 ‘ THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE 1GAZINT) 
is @oe2 i ‘ FOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALIZATION OR FATAL ERROR. 

; 6243 i : ITS PURPOSE IS TO SCAN THE DEVICE'S: COMMAND R CHECK FOR ANY ) 
(s 6244 1 ' SLOTS THAT HAVE BEEN “TAKEN” BY THE CONTROLLER. SUCH SLOTS | 
/: 6245 1 : HAVE BEEN RE TO THE HOST, INDICATED BY A ZERO OWNERSHIP BIT FOR ! 
| 6246 2 ; EACH SLOT THAT HAS BEEN RETURNED TO THE HE CRING COUNT IS | 
ls 6247 1 ' DECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO THE NEXT SLOT IN 

+ 6248 1 ‘ HE COMMAND RING. 
| $ 6249 1 : 

s 6250 i i IMPLICIT INPUTS: 

; 6251 1 : ICTLR - INTERRUPTING CONTROLLER NUMBER 

; 6252 1 ‘ IDCT_ ADDRESS OF INTERRUPTING CONTROLLER'S DCT 

' 6253 ; ICOM_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA 

i ioe 

; 6255 1 | 

; 6256 2 begin 

+ 6257 é ADDR [CMD_INT] = 0; ! CLEAR COMMAND INTERRUPT WORD IN RING HEADER 22 

i 6258 

; 6259 3 while. CC, IDCT_ADDR (CRING_CNT) tru 0) an ! WHILE @ OF COMMANDS IN CRING > 0 AND 

, 6260 2 (BIT TST CC.IDCT. ADDR CER POLL) + #5), ED_OWN))) do ! CURRENT SLOT IS HOST-OWNED 

i 626 

: 6262 3 begin ADDR [CRING_CNT] = .IDCT_ADDR [CRING CNT} me ! DECREMENT @ CMDs IN CRING 

; 6263 3 IOCT_ADOR (CR_POLL) = .IDCT_AOOR (CR_POLL] + ! ADVANCE TO NEXT SLOT TO POLL 

s 6264 

; 6265 3 if .IDCT_ADDR [CR_POLL) gtre .IDCT_ADDR Seige ! IF BEYOND END OF RING 

: 6266 

, 6267 $ IDCT_ADDR [CR_POLL) = .IDCT_ADOR [CR_BEG); ! SET POINTER TO TOP OF CRING 

3 

| 8 3 

» 

k 6271 2 !ZZZ | ICOM_ADDR (CMD_INT) = 0; ! CLEAR COMMAND INTERRUPT WORD IN RING HEADE 

: 6272 1 end; 

.SBTTL POLL.CRING RORX INTERRUPT SERVICE ROUTINES 

000000 004137 0000006 POLL.CRING: : 

JSR Ri, $SAVE2 : 62 

000004 013700 000074: MOV ICOM. ADDR. RO ; 6257 

000010 CLR 4(RO) 

000014 013701 000100: MOV IDCT.ADOR.R1 ; 625 

000020 012702 000016 MOV #16 ,R2 ; 626 

000024 060102 ADD R1i,R2 

900026 105711 1s: TSTB = CR) ; 625 

000030 00142 BEQ 23 

000032 016100 000016 MOV 16(R1),RO : 6 

000036 01 000002 MOV 2(RO), 

000042 042700 077777 BIC 877777 ,RO 

000046 020027 100000 CMP RO, @-100000 

000052 001411 BEQ 2% 

000054 105311 DECB—Ss« R21) : 6262 





ee 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 
vo2.3 RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 
000056 062712 9000004 ADD #4 ,(CR2) 
000062 9021261 000012 CMP CR2),12¢€R1) 
000066 101757 BLOS i$ 
, 000070 016112 900010 MOV 10(R1),CR2) 
| 000074 000754 BR i$ 
000076 000207 2%: RTS PC 
; Routine Size: 32 words, Routine Base: *%sCODE$ + 22250 


: Maximum steck depth per invocation: 4 words 


_——— eee 


SEQ 0446 


VAX-11 Blies-16 V4.1 Page 183 
DISK SUSER2: [MLYNAR. sea] ZROAHO. BL2;3 (S52) 
$ 6263 
3 6265 
; 6267 
; 6259 
i 6238 


G4 68 G4 UE G8 8 G8 8 8 G8 GEC GE GE GE GI GC GE GE GB GE GIAO POPUP DD Pe ee pe pe pe 


10-Oct-1985 09:41:47 


RD/RX EXERCISER 
10-Oct-1985 09:21:16 


RDORX INTERRUPT SERVICE ROUTINES 
GLOBAL routine PGLL_RRING : novalue = 


* 


NITIALIZATION OR F 
RING AND CHEC 


BEEN RETURNED HOST (OWNERSHIP BIT 
EACH SUCH SLOT, THE ASSOCIATED MESSAGE IS PROCESSED BASED ON 
CONNECTION ID (DISK AFTER PROCESSING, T 


IMPLICIT INPUTS 
ICTLR - “NUMBER OF INTERRUPTING CONTROLLER 
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT 


begin 


local 
TEMP : word; 


ICOM_ADDR [(RSP_INT] = 0; 
TEMP = .PAR_TSD; 
while not (BIT_TST (C.IDCT_ADDR (RR_POLL] + 2), ED_OWN)) do 


n 
TPRT ADDR = ..IDCT_ADDR {RR_POLL) - 10; 
IF NOT CiexT MOOR [CONNID] EQL CID_DUP) 
CCREDI (CREDIT BAL + .IPKT_ADOR [CREDITS),); 
'IT WAS NOTICE "aRat puP 


selectoneu .IPKT_ADDR [(CONNID 


set 
(CID_DISK]) : DISK_RSP (); 
'MMM (CID_DvP } DUP_RSP (); 
[otherwise] : PRINTF (O6M20, .IPKT_ADDR [CONNID]), 
tes; 
H if .PAR_TSO 
g then 
9 if not .TEMP 
: then 
: return; 


HIS ROUTINE IS CALLED BY a enue SERVICE Na Par gt 8 


KE 
. wr 


WAS SENDIND BACK | CREDITS WHICH IT SHOULD NOT. 


ee ee _—— ---— 


SEQ 0447 
VAX-11 Bliss-16 V4.1-582 Page 
DISK $USER2: [(MLYNAR . ZRQ)ZRQAHO.BL2;3 (53) 


lis” 


D DUP ). HE MESSAGE PACKET 
+ : Rene AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET 


! MMM 
! CLR RESPONSE INTERRUPT WRD IN RING HEADER | 
! MMM 
! WHILE O = O 
! ADDRESS OF RESPONSE PACKET 


ZZZ 
§'ZZZ 


Z2ZZ 
§ZZZ 
!Z2ZZ 
. IRDRX_ADDR ); 


! “BAD CONN ID = XXXXX FROM XXXXXX” 


oz 
~ 





— eee ewe ee — 


SEQ 0448 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Page 185 
RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16  DISK$USER2:(MLYNAR. FRO] ZROAHO. BL2;3 (53) 
3 IPKT_ADDR [MSGLEN] = MSG_LEN «# 2; ! RE-INIT PKT FIELDS; MESSAGE LENGTH 
3 TOCT PADDR, ADDR (RR tre * rOCT ADDR [RR POLL} © 2: ! ADVANCE TO HI ORDER WORD OF RING SLOT 
3 . =". IPKT ADDR (PKT_HI ‘ RETURN SLOT TO CONTROLLER 
3 et ~ADDR pe - pioct ADDR [RR POLL } or ED_OWN or ED_FLAG; ! OWNERSHIP TOO 
3 IDCT_ADOR [ RPOLt = .IDCT_ADOR (RR_POLL) ! ADVANCE TO NEXT RRING SLOT 
3 
3 if .IDCT_ADDR [RR_POLL) otra .IDCT_ADDR (RR_END) ! IF BEYOND END OF RING 
3 then 
3 IDCT_ADDR [RR_POLL] = .IDCT_ADOR [RR_BEG); ! CYCLE TO TOP OF RING : 
¢ end; ; ! WHILE LOOP 
2 !2ZZ  ICOM_ADOR [RSP_INT) = 0; ¢ CLR RESPONSE INTERRUPT WRD IN R 
1 end; 
| .SBTTL POLL.RRING RORX INTERRUPT SERVICE ROUTINES 
004137 0000006 POLL .RRING:: 
JSR" $SAVE3 ; 
013700 000074' MOV TOM, ADDR. RO 
013701 000100' MOV IDCT.ADOR,R1 ; 
062701 000014 ADD ti 
011100 1$: MOV (R1),RO 
016000 000002 MOV 2(RO},RO 
042700 077777 BIC rT7T R RO 
020027 100000 CMP RO, @-100000 
001476 BEQ 
017137 000000 0000006 MOV @0(R1), IPKT.ADOR ; 
737 000012 000000G SUB #12, IPKT . ADDR 
013700 0000006 HOV TPKT ADDR . RO ; 
156002 000011 BISB 11(RO),R2 
020227 000002 CMP R2,¢2 
001406 BEQ 2% 
116003 000010 MOVB 10(RO),R3 ‘ 
042703 177760 BIC €177760,R3 
060337 0000006 ADD R3, CREDIT .BAL 
005702 2¢: TST R2 ; 
001003 BNE 
004737 O00000V JSR PC, DISK .RSP 
000413 BR 4s ; 
013746 0000006 Sie MOV IRORX.ADOR, -(SP) ; 
010246 MOV R2,-(SP) 
MOV @08N20, -( SP) 
012746 000003 MOV 63,-(SP) 
SP ,RO 2 SP, & 
104417 TRAP 17 
706 000010 #10,SP 
43: MOV IPKT. ADDR ,RO ; 


013700 000000G 
012760 000074 000006 MOV $74,6(RO) 





000240 


s Routine Size: 
; Meximum steck 


013702 


: 6342 1 


—~. ee 





RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


000100° MOV IDCT.ADOR,R2 
MOV R2,Ri 
000014 ADD #14,R1 
000002 ADD @2,(R1) 
000002 000000 MOV 2(RO), @O(R1) 
140000 000000 gis @-40000, 80(R1) 
000002 ADD $2, 
000006 CHP (Ri), 6C(R2) 
000004 HOV 4cR2),(R1) 
S$: RTS PC 
81 words, Routine Base: *sCODE$ + 22350 
depth per invocation: 10 words 


, SEQ 044 
VAX-11 6B Nee Pg v4.1 Page 


1 -1-562 
DISK $USER2: [ML YNAR . ZRQ)ZRGAHO .BL2;3 


186 
(53) 


6327 


ee et eee aes ke oe - 


a 


; 


eal al aeel cel eel ool el od od od ord od ed od od eed eed eed ed ed ed ed ed od od eT ee eto) 





eee ee - 


RD/RX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Blies-16 v4.1-S82 Page 187 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16  DISKS$USER2: (MLYNAR.ZRQ)ZROAHO.BL2;3 (54) 
GLOBAL routine DISK_RSP : novelue « 
| 
i THIS ROUTINE IS CALLED BY POLL RRING FOR EACH RESPONSE 
: WHICH HAS A CONNECTION ID INDICATING A DISK MSCP ORIGINATOR 
: cr. E. ALL EXCEPT §). ITS SE IS TO PASS 
' ONTROL T THE APPROPRIATE ROUTINE BASED ON THE MESSAGE TYPE 
ELD TSEQUENTIAL. DATAGRAM, OR CREDIT NOTIFICATION). 
, IMPLICIT INPUTS: 
i IPKT_ADOR - ADDRESS OF MSCP PACKET CONTAINING RESPONSE 
MESSAGE 
selectoneu .IPKT_ADDR [MSGTYP]) of 
set 
(MT_SEQ) : SEQUEN (); 
(MT_DG) : DATAGM (); 
Cotherwise] : PRINTF (DBM21, .IPKT_ADDR (MSGTYP)); ! “MESSAGE TYPE xx RECEIVED” 
tes; 
.SBTTL DISK.RSP RORX INTERRUPT SERVICE ROUTINES 
DISK .RSP:: 
MOV Ri, -(SP) r 634 
0000006 MOV IPKT. - : é 
000010 MOVB  10(RO),R1 
ASR Ri 
ASR R1 
ASR Ri 
ASR Ri 
177760 BIC #177760,R1 
BNE i$ ; 636 
000000V JSR PC, SEQUEN 
000001 18: CMP sé @1 636 
BNE 2% 
000000V JSR PC ,OATAGM 
2¢ nov a1, -CSP) . 637 
HOV @08M21, -(SP) 
000002 MOV @2,-(SP) 
MOV SP .RO 3 SP ,« 





| ZRQAMS RO/RX_EXERCISER 


10-Oct-1985 09:41:47 
| yo2.3 RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 
000066 104417 TRAP 17 
000070 062706 000006 ADD 06, SP 
000074 012601 3%: MOV (SP}+,R1 
000076 000207 RTS PC 


s Routine Size: 32 


words 
: Maximum steck depth per 


5 6373 i 
s 6374 i 
a 6375 


a Rout i 
invecetion: 


ne Bese: *sCODE$ + 22612 
6 words 


—_——_—— — 
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————— 


RO/RX EXERCISER 
RDORX INTERRUPT SERVICE ROUTINES 


GLOBAL routine SEQUEN : novalue = 


+ 


WITH THE “ 
PACKET CAN 


IMPLICIT INPUTS: 


P_INDEX : signed word initial (-1), 


R_INDEX : signed word, 


SAV_A 


a ABDR "ref block (RP_LEN, word] field (RP_FIELDS); 


builtin 
HALT; 


incr COUNT from 0 to PKT_CNT - 1 do 


if ¢.MSCP_ aol -COUNT, CRN_LO 
C.MSCP_P ag coun: Prr -HI 


CMSCP~PKT 
¢ .MSCP_PKT 


(.MSCP_PKT [. EOUNT. ‘nScrvP). 


CC. IPKT_ADOR 
inn 
n 
5 ee = ,COUNT; 
exitloop;: 
end; 


if .P_INDEX lss 0 
then 


_PKT “ule T {.COUNT) eql .ICTL LAD 


OLL 
CREAD, WRITE 


ICTLR - INTERRUPTING CONTROLLER NUMBER 
IPKT_ADDR - ADDRESS OF MSCP PACKET CONTAINING RESPONSE 


eql .IPKT_ADDR [CRN -\0 ) and 
reas be phDOR can Ag and 


oP ENS , 
) eql OP_END) and 


mr eee - 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V 582 os 
10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR. 7RO}ZROAHO. BL2;3 09" 55) 


THIS ROUTINE IS CALLED BY DISK_RSP FOR EACH DISK MSCP RESPONSE MESSAGE 
TIAL” MESSAGE T IT AL 


PURPOSE IS TO COPY THF. 


GE TYPE. ITS GENER | 

CONTENTS OF THE MESSAGE PACKET INTO A RETURN PACKET SO THAT THE : 
BE RETURNED TO THE CONTROLLER. IN ADDIT | 

IF THE COMMAND WAS AN I/0 TRANSFER | 
FIELDS OF THE COMMAND PACKET ARE COPIED INTO THe RETURN PACKET 


OR ACCESS), _ SOME 


EN ee 


! ASSUME NO ASSOCIATED COMMAND PKT 


! IF THIS IS THE ASSOC CMD 


! SET PKT NUMBER 


! IF COMMAND NOT FOUND 


begin 
PRENTE (0BM108, .IPKT_ADDR (CRN_HI), .IPKT_ADDR [(CRN_LO)); ! UNKNOWN COMMAND REF. NUMBER 


return; 
end; 


Se .MSCP_PKT [.P_INDEX, OPCODE] neq €.IPKT_ADDR [OPCODE] and (not OP_END)) ! IF OPCODE MISMATCH 
en 












LL A A a 


SEQ 0453 
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> 6429 2 PRINTF (OBM111. .MSCP_PKT [.P_INDEX, OPCODE}, .IPKT_ADDR [OPCODE), .IPKT_ADOR (CRN_HI), .IPKT_ADDR [CRN_LO}) 
i 
6430 2 
; «6431 3 if Cf. IPKT_ADDR [OPCODE} eal (OP_RD or OP.END?? or 
; 6432 2 (. IPKT_ADDR OPEODE OP_WRT or OP_END))) and 
; 6433 3 (C. IPKT_ADDR (STATUS “cB0e) a ST_SUC) and 
; 6434 2 (. IPKT_ADOR {STATUS SuBCODE eal 0)) and 
; 6435 3 CC.MSCP_ .P_INDEX, LO a OeKT A _ADOR (8C_LO)) or 
, 6436 3 (:MSCP_PKT [.P~INDEX. BE-At neq .IPKT_ADDR (8C_HI})) 
e439 $ oe SCP PKT [.P_INDEX, BC_HI), .MSCP_PKT [.P_INDEX, BC_LOJ, .IPKT_ADOR [BC_HI], .IPKT_ADOR [(8C_LO} 
; mn” os P a s. a a - ee oe al . 
, 6440 3 TeKT “ADDR {CAN_HI]. .IPKT_ADOR [CAN_LO 043, : 
+ Gaaa 3 if .MSCP_PKT [.P_INDEX, RSP_RECEIVED) | 
$ 6443 2 then | 
5 6444 3 peat | 
; 6445 3 PRINTF (DBMi20, .MSCP_PKT [.P_INDEX, CRN_HI], .MSCP_PKT [.P_INDEX, CRN_LO]); 
; 6446 3 PUT_PKT (.P_INDEX); 
5 6447 53 return; | 
$ 6446 3 end 
; 6449 2 else | 
; 6450 é MSCP_PKT [.P_INDEX, RSP_RECEIVED] = TRUE; ! MARK RESPONSE RECEIVED 
i 
; 6452 2 if CR INDEX = GET_ RETPKT (.ICTLR)) lss 0 ! IF RETPKT IS NOT AVAILABLE 
’ 6453 2 then 
' Gas 3 BRente (DBNe2) ! “SEQUEN: RETPKT NOT AVAILABLE 
; 6456 § PUT _PKT (.P INDEX); ’ ' 
P 6457 3 sadioaa 
: 64568 3 end 
r 6459 2 else 
: es IPKT_ADDR + + SET UP COPY (SKIP OVER PKT DESC) 
e462 3 R RE ADDR © DST_ADDA = RETPRT + (.R_INDEX © ®P_LEN « 2), + START OF ALLOCATED RETPKT 
ones iner Coat from 1 to RP_LEN do 
i 
: 6466 4 agent ADOR; ! COPY 1 WORD 
; 6467 4 ost. “ROOR T_ADOR + 2; ' ADVANCE DESTINATION ADOR 
; e468 4 SRC_ ADDR 2 “SRC“ADOR 2 2t ‘ ADVANCE SOURCE ADDR 
: ea 70 5 if .IPKT_ADDR [OPCODE) eql (OP_ONL or OP_END) : IF THIS IS THE ONLINE END MESSAGE 
; 
; 6472 4 if .COUNT eal 10 ! SKIP OVER RESERVED WORDS 
: 647 4 then 
; 6474 4 SRC_ADDR = .SRC_ADOR + : IN ONLINE END - MESSAGE 
; pot : end; ' COPY LOOP 
' 
, 6477 3 R_ADOR [CTLR] = .ICTLR; * LOAD CONTROLLER NUMBER INTO PKT 
i 
: 6479 : if .P_INDEX gea 0 : IF ASSOC. CMD PKT WAS FOUND 
: 
; 6481 3 


oe a 


MVM UUUUIUNUNNNN VRUNUUUUNANNNNVNANNUNVVWUUWP SSP aWaUW 


oF ee er ae fer Ge oe ae oe Ge oe oe oe ae os (ffer =e or ae ae we Ge GF GF Gr Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ue Ge Ge oe Ge Ge Oe 


aa 


RD/RX EXERCISER 10-Oct-1985 09:41:47 
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if ©. IPKT_ADDOR [OPCODE 
(. IPKT_ADOR 
(.IPKT_ADDR [OPCODE 





—- (.R_INDEX); 


if ©. IPKT_ADOR peer igrans- _CODE] neq ST_SUC) or 
(. IPKT_ADDR (STATUS SUBCODE ]~ neq 0) 
, LAST_PKT ({.ICTLR, LAST_HRD_ERR] = HRD_OCCURED 
eise 


LAST_PKT (.ICTLR, LAST_HRD_ERR]) = HRD_NOT_OCCURED; 
LAST_PKT -ICTLR. LAST_CRN_LO . IPKT_ADDR agen foun to _LO 
LAST_PKT [{.ICTLR, LAST_CRN_HI] = .IPKT_ADDR 

"MMM SCAN_ERRLOG (); 


if €.R_ADDR (FLAGS) and #0’40') eql so0' 40’ 
then 


ee f° coBMi2s) 
EMS_R ADDR); 
EHE-Ri CRTADDRD: 
; 
'MMM - SCAN_ERRLOG ( ); 


if .CSR_MEM and .TST_PAR 
if (C..CSR_ADD and s0'100000') eqlu so’ 100000' ) 
then | 
n 
PRINTF (DBM125, . .CSR_ADD): 
CSR_ADD = So'4 
PRINTF (DBM126, D00" _ADD); 
HALT (); 
end; 
if .P_INDEX geq 0 
PUT_PKT (.P_INDEX); 





VAX-11 Bliss — ee 
DISKSUSER2 [ML YNAR ZROIZROAHO.BL2;3  @*cdss 
t IF END MESSAGE IS 


READ, WRITE, OR 
ACCESS 


ve 
P ENDCODE WAS READ/WRITE/ACCESS 


PUT RETPKT INDEX INTO I0D@ 
IF RETPKT WAS ALLOCATED 


! SAVE ERROR CONDITION 


SAVE COMMAND REFERENCE NUMBER 
PRINT ANY ASSOCIATED ERROR-LOGS 


! MMM IF ERROR LOG(S) GENERATED 
! MMM PRINT RESPONSE PACKET 


! PRINT ANY ASSOCIATED ERROR L 


- 
a eee te lee A MT _—— ~~ 


!MMM PRINT EXTENDED CSR 
! MMM HALT ON HOST MEMORY PARI 


! IF ASSOC CMD PKT WAS FOUND 
! RETURN COMMAND PACKET TO POOL 


a 


—_———- 





SEQ —. 
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end; ! ROUTINE DISK_RSP 
.SBTTL SEQUEN RDRX INTERRUPT SERVICE ROUTINES 
000000G a “—— F 6376 
177777 MOV #-1,-CSP) ; *,P. INDEX 6391 
000000G MOV IPKT.ADOR,R1 $ 6467 
CLR R2 ; COUNT 
i$: MOV R2,-CSP) ; COUNT, 
000106 MOV #106, -(SP) 
000900G JSR PC ,B6LSMUL 
CMP C(SP)+,(SP)+ 
000012G 000012 te te ona tained 
000014G 000014 Th MSCP .PKT+14(RO),14CR1) $ 
C00000G A MSCP .PKTCRO),CR1) ; 
000022G hy MSCP .PKT+22C(RO) $ 
000360 000010G a" #360 ,MSCP .PKT+1L0OCRO) 3 
000022 i 22(R1) | 
000000G MOVB PKT.USECR2),RO ; *C(COUNT),«# 
000104' ee oe 
MOV R2,.(SP) ; COUNT ,P.INDEX 
BR 3$ ; 
2$: INC ; COUNT 
000013 oy R2,413 ; COUNT, 
TST CSP) ; P.INDEX 
3$: BGE 
000012 MOV 12(R1),. -CSP) 3 
000014 MOV 14(R1),-CSP) 
MOV 108, -( SP) 
000003 MOV @3,-CSP) 
MOV SP ,.RO as SP ,# 
TRAP 17 
BR 9$ : 
4$: MOV CSP), -CSP) ; P.INDEX,« 
000106 MOV #106 ,-(SP) 
000000G JSR PC ,BL$MUL 
MOV RO,R1 
CMP (SP)+, CSP) 
MOV IPKT.A oR 
000022 MOVB 22C(RO),R3S 
177600 BIC #177600 ,R3 


R2 
000022G BIS68 MSCP .PKT+22(R1),R2 





SEQ 0456 


- — a <n = 
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02020 CMP R2.R3 
001422 BEQ S$ 
016046 000012 MOV 12(RO),-(SP) , 6429 
016046 000014 HOV 14¢RO), -(SP) 
116016 000022 HOVE 22(RO), (SP) 
116116 0000226 MOVB $MSCP.PKT+22(R1),(SP) 
012746 000000G MOV @0BM1i11, -(SP) 
012746 000005 MOV _< 
01 MOV SP -RO ; SP,« 
104417 TRAP 
062706 000014 ADD $14,SP | 
013700 0000006 S$: MOV IPKT . ADDR ,RO : 6431 
126027 000022 000241 CMPB =: 22(RO), 0241 | 
001404 BEQ 6$ 
126027 000022 000242 CMPB =-—« 22(RO) , #242 ' 6432 
001045 BNE B$ 
012702 co0024 63: MOV $24 ,R2 , 643 
2 ADD RO,R2 
132712 000037 BITB 37,(R2) 
001037 BNE 
032712 177740 BIT #177740, (R2) ; 6434 
001034 BNE 5 
026160 000026G 000026 ce MSCP ..PKT+26(R1),26(RO) ; 6435 
026160 0000306 000030 CMP MSCP .PKT+30(R1),30(RO) ; 64 
001424 BEQ 8$ 
016046 000012 7$: MOV 12(RO), -(SP) ; 644 
016046 000014 MOV 14(RO). -(SP) 
016046 000026 MOV 26(RO). -(SP) 
016046 000030 MOV 30(RO). -( 5P) | 
016146 000026G MOV MSCP .PKT+26(R1),-(SP) 
016146 000030G MOV MSCP .PKT+30(R1),-CSP) 
012746 MOV @08Mi12, -(SP) 
012746 000007 MOV @7,-(SP) 
01 MOV SP RO ; SP,* 
104417 TRAP = ‘i? 
062706 000020 ADD #20,SP 
132761 000001 000005G 83: BIT8 #$#1,MSCP.PKT+5(R1) : 644 
001422 BEQ 10$ 
016146 0000126 MOV MSCP.PKT+12(R1),-(SP) ; 6445 
016146 000014G MOV MSCP .PKT+14(R1).-CSP) 
012746 MOV @08Mi20, -(SP) 
012746 000003 MOV 93, -(SP) 
01 MOV SP; RO ; SP.« 
104417 TRAP so 
016616 000010 MOV 10(SP), (SP) ; P.INDEX,« 6446 
00473 JSR PC PUT .PKT 
7 000010 O$: ADD ‘ : 6447 
000137 024230' JMP 23$ : 6444 
112761 0000056 10$: MOVB  #1,MSCP.PKT+S(R1) ; 64 
013746 000104: MOV ICTLR, -(SP) : 6452 


- oe 


i ee 





RD/RX EXERCISE 


R 
RDORX INTERRUPT SERVICE ROUTINES 


000000G 
000004 


000002 
000000G 
000001 


024216’ 
000000G 


000006 
000902 


12$: 


000022 000211 


13$: 


000022 
177400 
000241 
000242 
000220 


000024G 000012 14$: 
000044 


11%: 


15$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


PC ,.GET .RETPKT 
2S ali 


21 
IPKT.ADDR,R4 
06 ,.R4 
2(SP),-CSP) 
654, -(SP) 

BL $MUL 
@RETPKT ,RO 
RO.RS 


RO,R2 
IPKT .ADDR,RO 


CR4)+,CRS)> 
22(RO), #211 
13$ 


R3,012 

133 

$4,R4 

R 

RS. ¢26 
ICTLR.RS 
#177760,R3 
#17,2(R2) 
R3,2(R2) 
4(SP) 

153 
22(RO),RO 
#177400 ,RO 
RO, #241 

14 

RO, 0242 

14 

RO, #220 
15$ 


MSCP .PKT+24(R1 
MSCP .PKT+26(R1 
MSCP .PKT 


Fi 
‘  ] 
v 
x 
od 
2 
y 
an 
“- -~_ 
® 
ro 
Nad al Nad Need Neal Ned Net 


VAX-11 Blies-16 V4. 


«,R. INDEX 


; R. INDEX 


R. INDEX, « 


*,DST.ADDR 
*,R.ADOR 


« , COUNT 
SRC .ADOR ,OST. ADDR 


COUNT , « 
*«,SRC.ADDR 
COUNT 
COUNT, « 


zDaeneeeree & 
ceenwe#eeseses 
Hee eee 2 © 

WY a a 


SEQ i, 
DISK SUSER2: [MLYNAR. 7Ra)ZROAHO, BL2;3 


194 
oe" 55) 





eee ee ee 





013716 
746 


RD/RX EXERCISER 
RDRX INTERRUPT SERVICE ROUTINES 


000104’ 


000037 
177740 


000010 


000120° 


000122’ 
000124' 
000015 


000000G 


16$: 


17$: 
18%: 


198: 


208: 
21$: 


22s: 
23s: 


10-Oct-1985 09:41:47 
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ICTLR, (SP) 


Ri, 

@37,CR3) 
Lala 
#1,LAST.PKTCRO) 
18% 

LAST .PKTCRO) 


12(Ri), LAST .PKT+2(R 
14(R1).LAST .PKT+4(RO 
5(R2) 


#40,1 
$08M123, (SP) 
#1,-(SP) 


R2,(SP) 
PC ,EMS.R2 


PC.EMS.Ri 
> 
@1, TST.PAR 


@CSR.ADD RO 
#77777 ,RO0 
RO, #-100000 


(SP)+,CSP)-+ 
CSP )-+ »(SP)-+ 


0) 
0) 


ee eee —— — —_~ 


SEQ 0458 
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DISK SUSER2: [MLYNAR. 7ROIZROAHO. BL2;3 oe 55) 
; 6502 
$ 6499 
‘ 6500 
: 6502 
; 64 

; 6 

‘ 65 

5 650 

; *,*#(CR. ADDR) 651 

; 651 

3 SP ,* 

‘ R.ADDR, + 

3 R.ADOR,* 

$ 

: 

3 SP, 

3 

: 

; SP ,* 

: 

; P. INDEX 

t P . INDEX, 





——— = —— 





A 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 

vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 
001320 000207 RTS PC 

: Routine Size: 361 words, Routine Base: sCODE$ + 22712 


; Maximum stack depth per invocation: 18 words 


SEQ 0459 
VAX-11 Bliss-16 V4.1-562 Page 
DISK $USER2: [MLYNAR. ZRQ)ZRGAHO.BL2;3 ee 55) 


— = _—_— LTT eee eee A the ~ tame > pm s 


SEQ 0460 
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'MMMGLOBAL routine SCAN_ERRLOG : novelue = 


!MMM! « 
Hit THIS ROUTINE SCANS THE ERROR-LOG SAVE AREA AND PRINTS ANY ERROR-LOGS RECEIVED FOR THE ASSOCIATED RESPONSE 


ST a a 
sas ee S@ ¢@ *@ £@ te *@ te a= oe ¢@ *¢@ e@ o@ ete c@ ©@ ¢@ *@ *@ &@ se ee oe Se cD 


oF Ge OF SF Ge SF SF GF SF SF SF GF GF SF GF SF GP SF SF SF Se Ge Ge Se GF SF SE GP SP Ge Ge SS SF Ge GE GE GP G Ge Ge GS Ge Ge Ge Ge Se GS Be es GF Os os os 
FOO ee ee be ee be be ee ee ee ee ee he ee be be pe be bee ee ee be ee he ee be ep he pep pe 





begin 
lecal 
TEMP _UNIT, 
SFT_ERR_PRINTED : byte initial (byte (FALSE)); 
incr index from 0 to EP_CNT do ! SCAN ERROR-LOG PACKET SAVE AREA 
begin 
if (.ELOG_PKT [.index, EL_CNTR] eql .ICTLR) and 
(.ELOG_PKT [. index, EL -CRN_LO} eql .IPKT_ADDR [CRN_LO]) and ! MMM 
(.ELOG_PKT [.index, EL_CRN_HI) eql .IPKT_ADOR (CRN_HI}) and 


begin § ERROR-LOG PENDING THIS RESPONSE 
bed -LAST_PKT [.ICTLR, LAST_HRD_ERR] eql HRD_NOT_OCCURED ' IF SOFT ERROR OCCURED 
en 
if .ELOG_PKT [.index, EL_FORMAT] lequ 4 
then 
begin 
SOFT ERROR C. index); ' UPATE SOFT ERROR COUNT 
TEMP_UNIT = .L$LUN; ! SAVE UNIT NUMBER AS KNOWN TO ORS 


imer OFFSET from (O + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF_UN) by UNIT_SIZE do 
if €.ICST_ADDR {.OFFSET + OF _DATA, D_OISK_NUM) eql .ELOG_PKT [.index, EL_DK_NUM]) and 
nes ree tO .OFFSET + OF _DATA, D_PRES] eal PRESENT) 


er 

L$LUN = .ICST_ADOR [{.OFFSET + OF _DATA, D_UNIT]; ' CORECT UNIT NO. FOR ERROR MESSAGE 
a 

end; 


case passat {.index, EL_FORMAT} from 0 to 4 of 
2€ 


[0]: : ort ! CONTROLLER ERROR 
ERR_SOFT_RTNE_APT (S50, . index) 
 “ERR_SOFT_RTNE (50); 
(1): if .APT_MODE ! HOST MEMORY ACCESS ERROR 
’ ERR_SOFT_RTNE_APT (S1, . index) 


nel EL OG=PKT . index, EL_CONTENTS) eaqi FULL) 
} 
, 


LS 


PP Se ee ee ee ee ee ae ee ee be be he he ee ee ae be bee ee ee he oe ee he ee he ee ee pe 


RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


ee eee 


lse 
ERR_SOFT_RTNE (51); 
{2): if .APT_MODE 
ERR_SOFT_RTNE_APT (S52, . index) 
2e€ 
ERR_SOFT_RTNE (52); 
(3): if .APT_MODE 
ERR_SOFT_RTNE_APT (53, .index) 
se 
ERR_SOFT_RTNE (53); 
[4]: if .APT_MODE 
then 
ERR_SOFT_RTNE_APT (54, . index) 


se 
ERR_SOFT_RTNE (54); 
tes; 


L$LUN = .TEMP_UN 
SFT _ERR _PRINTED™ : “oue, 
© * PRINTF (DBM109, .ELOG_PKT [.index, EL_FORMAT]); 
if not (.SFT_ERR_PRINTED) 
PRINTB (CRLF); 
f (C.ELOG_PKT [.index, EL_CRN_LO) neq .IPKT_ADDR [CRN_LO]) or 
ft. ELOG PKT {. index, EL_CRN_HI] neq .IPKT_ADOR (CRN_HI})) and 
Caro. {. ICTLR} "eql 1) 
PRINTB (DBM122); 


EMS_EL (.index); 
end 


else 
if (.ELOG_PKT [. inden. EL -CNTRI @ 1 .ICTLR) and 
(C.ELOG_PKT {(. index, EL CRN lee “PRT ADOR noon {EAN HE} or 
CC.ELOG_PKT [. index CER Hi CRN_HI)) and 
(:ELOG_PKT [{.index, E oo “PRT ADD DR [CRN_LO}))) 
(.ELOG_PKT [.index, EL_ EL GHW LO eql FULL) 


f (.ELOG_ ext - index. EL_CNTR] eql .ICTLR) and 
( .ELOG_PK index, EL_CONTENTS] eql FULL) and 
OCaro. E ICTLR) eqlu 1) 


then 


SEQ 0461 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 
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DISK TRANSFER ERROR 


SOI ERROR 


SMALL DISK ERROR 


! RESTORE UNIT 
! SOFT 


NUMBER 
ERROR PRINTOUT OCCURED 


UNKNOWN ERROR-LOG FORMAT 


198 
(56) 


EXTRA CARRIAGE -RETURN/LINE -FEED 


! ‘Late or Unexpected Error Log: 


PRINT ERROR-LOG CONTENTS 





EE ST eR 


| 


SEQ 0462 
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vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 § DISKSUSER2:(MLYNAR. 7RO}ZRQAHO. BL2;3 (56) 
s 6643 1 ' MMM begic 
: 6644 1 ' MMM PRINTB (CRLF); ' CARRIAGE -RETURN/LINE -FEED 
: 6645 1 ‘MMM EMS_EL (. index); ! PRINT ERROR-LOG CONTENTS 
+ 6646 it ' MMM end; 
4: 6648 1 ‘MMM end; ! ERROR-LOG SAVE AREA SCAN ) 
3 6649 1 | 
|s 6650 1 ! MMM end; : 


em ee 


8 
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SEQ 0463 
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GLOBAL routine DATAGM : novelue = 


o 


THIS ROUTINE HANDLES ALL DATAGRAM CERROR LOG) MESSAGES RECEIVED FROM 
THE RORX a 
IMPLICIT INPUTS: 

IPKT_ADDR - ADDRESS OF MSCP PACKET CONTAINING ERROR LOG 


ICST_ADDR - ADDRESS OF THE INTERRUPTING CONTROLLER'S CST 


begin 
locel 
index : signed word initiel (-1), 
VE_ADDR : ref block [EP_LEN, word) field (EP _FIELDS), 
DST_ADOR, 
TEMP _UNIT 


'MMM 6s SF T_ERR -PRINTED B byte initial (byte (FALSE)), 
PACKET_CEN : wor 


! FIND AN EMPTY SLOT IN THE ERROR-LOG PACKET SAVE AREA 
EL_FLUSH [.ICTLR] = TRUE; : MMM 
incr COUNT from O to EP_CNT - 1 do 
if .ELOG_PKT [.COUNT, EL_CONTENTS) eal EMPTY ! IF EMPTY SLOT FOUND 
! SAVE INDEX INTO THE SAVE AREA 


if .index les 0 
then 
index = EP_CNT; 


IF NO SLOT FOUND. USE LAST SPARE SLOT 


: 
: SAVE THE PACKET CONTENTS 


SAVE_ADDR = ELOG_PKT + (.index * EP_LEN * 2); ! ADDRESS OF THE SAVE AREA 
SAVE _aDOR fel. .COnTENTS ) = FULL ' MARK IT FULL 

SAVE_ADDOR [EL_CNTR) = .ICTLR; t OWNERSHIP 

SRC_ADOR = .IPKT_ Son e gi ' SETUP COPY ADDRESSES 
DST_ADOR = 


.SAVE_ADDR + 
CC. IPKT_ ADDR’ (MSGLEN} + 1) / 2) + 2; LENGTH OF ERROR-LOG INCLUDING ENVELOPE 


c@ e@ *@ 
x3 
8 
: 
em NS ER ET A RN re = mew Sm rr 


3 
nm 


hice See 


MVUUUUUAUS SSUSUUUUUUUNVVMMVNND VUUVVUNANNVNNNANNMNN WwUwuUnrnnny 


a ee 





SEQ 0464 
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if .PACKET_LEN gtru EP_LEN - 1 | 
PACKET_LEN = EP_LEN - 1; ! ADJUST LENGTH, IF TOO LONG 
iner COUNT from 1 to .PACKET_LEN do 
n 
.DST_ADOR = ..SRC_ADOR; ! COPY A WORD 
SRC_ = .SRC_ADDR + 2; ! UPDATE ADDRESS POINTERS 
OST_ADOR * .DST_ADOR + 2; : 


if €.CSR_MEM and .TST_PAR) and (not .PAR_TSD) and (.SAVE_ADDR [EL_FORMAT] eql 1) ! MMM 


' 
: ' MMM 
: Mat ' MMM 
: _RORX CRCIP. RC_ALL, ALL_ONES); IRM 
: TSD = TRUE; ! MMM 
$ INIT. TEST (); hr 
g return; § MMM 
: 3 ' MMM 
if .SAVE_ADOR (EL_BRR) eql TRUE ! TEST ERROR LOG MESSAGE FLAGS MMM 
PRINTF (DB8M127); * BAD BLOCK REPLACEMENT REQUEST FLAG SET MMM 
if .SAVE_ADDR (EL_EOR) eql TRUE ‘ERROR DURING REPLACEMENT (BAD BLOCK) FLAG SET 
then 
PRINTF (08M128); : Te a) 
if .SAVE_ADOR (EL_SUCCESS) eql TRUE ope 
if .SAVE_ADOR (EL_FORMAT] leau 4 
then 
CoP tT eRROR ERROR (.index); UPDATE SOFT ERROR COUNT 
TEMP_UNIT = .L$LUN; $ SAVE UNIT NUMBER AS KNOWN TO ORS 
incr OFFSET from (0 + OF_UN) to (CUNITS_PER_CNTR - 1) # UNIT_SIZE + OF_UN) by UNIT_SIZE do 
if C.ICST_ADOR (.OFFSET + OF DATA, 0_DISK_NUM) .SAVE_ADOR [EL_DK_NUM)) and 
“ICST_ADOR ({.OFFSET + OF DATA, D PRES] eal SENT) 
ceeun = .ICST_ADOR [.OFFSET + OF DATA, D_UNIT); : CORRECT UNIT NUMBER FOR ERROR MESSAGE 
exi OOP: 
end; 


cease alacant (EL_FORMAT}) from 0 to 4 of 
Se 


(0) : if .APT_MODE ! CONTROLLER ERROR 
ERR_SOFT_RTNE_APT (SO, . index) 


< 
oO 
Nm 
w 


oa 
~d 
~~ 
oa 


FPNMMNVVVVN UUUUIUI WI UU UII Gt Gt Gt Gt td Gd Gt Gd 


SEQ 0465 


RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-15 V4.1-582 Page 202 
RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. FRO IZROAHO. BL2;3 mee 57) 
lse 
ERR_SOFT_RTNE (50); 
(1) : if .APT_MODE ' HOST MEMORY ACCESS ERROR 
: ERR_SOFT_RTNE_APT (S51, .index) 
se } 
ERR_SOFT_RTNE (51); | 
{2) : if .APT_MODE ! DISK TRANSFER ERROR 
ERR_SOFT_RTNE_APT (S52, .index) | 
se 
ERR_SOFT_RTNE (52); 
(3) : if .APT_MODE ' SDI ERROR 
ERR_SOFT_RTNE_APT (53, .index) | 
se 
ERR_SOFT_RTNE (53); 
{4) : HM . APT_MODE ! SMALL DISK ERROR 
en 
: ERR_SOFT_RTNE_APT (54, . index) | 
se 
ERR_SOFT_RTNE (54); 
tes; 
L$LUN = .TEMP_UNIT; ' RESTORE UNIT NUMBER 
end; 
'MMM lse 
'MMM PRINTF CDBM109, .SAVE_ADDR [EL_FORMAT])); ' ERROR LOG FORMAT UNKNOWN 
PRINTB CCRLF); ' EXTRA CARRIEGE -RETURN/LINE -FEED 
EMS_EL (.index); ' PRINT PACKET CONTENTS 
end; : 
. SBTTL eee RORX INTERRUPT SERVICE ROUTINES 
000000G DATAGM: : JSR . $SAVES : eee 
177777 MOV 0-1, R4 ; *, INDEX 
000104’ on ICTLR,RO ; eave 
000001 000106’ MOV #1,EL.FLUSHCRO) 
CLR Ri ; COUNT 
1$: MOV R1,-CSP) ; COUNT,«# 
000102 MOV #102,-CSP) 
000000G JSR PC , BL S$MUL 
CMP (SP)+,(SP)+ 
000001G TSTB ELOG.PKT+1CRO) 
NE 2$ 
| 





te oe ee 


—_—— -—-~ 


+ oe ee cee 


ZRQAMS 
vo2.3 


121227 


RO/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


2s: 
000013 


3$: 
4$: 


wo 


000016 


010000 8s: 


9$: 


aPqEgdeBeas 


o 
oe 
pe) 


ggageassaageeargza® 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


R1,R3 
6(RO), (SP) 
(SP) 
#2,-(SP) 
PC. BL sDIV 
He oa0 


040,RO 


CRS)+, CR3)> 





SEQ 0466 


VAX-11 Blies-16 V Page 203 

DISKSUSERD: [MC YNAR: FRAT ZROAHO. BL2;3 (57) 

; COUNT, INDEX 6685 

3 6684 

; COUNT 6680 

4 COUNT, « 

; INDEX 6689 

; *, INDEX 6691 

s INDEX,+ 6697 

é *, SAVE. ADDR 

+ *,*#C(CSAVE.ADDR) 6698 

$ 

s *,SRC.ADOR 

i #,SRC.ADDR | 

; SAVE.ADDR,OST.ADDR io 

; 67 
| 
| 

; PACKET.LEN,« 67 

; *,PACKET.LEN 67 

; COUNT 67 

7 SRC. ADDR ,.DST. ADDR o 

COUNT , PACKET .LEN 


; 
SAVE . ADDR , « 


® 
4) oO 
x a ~ 


3 67 

3 6731 
; SP ,« 

3 6735 


SEQ 0467 
10-Oct-1985 09:41:47 VAX-11 ehiee. -16 V4.1 "vans ; 


RO/RX EXERCISER 204 
10-Oct-1985 09:21:16 DISK $USER2: [ML YNAR. TRO} ZROAHO. BL2;5 nee 57) 


RORX INTERRUPT SERVICE ROUTINES 


~ 


eesccossdds edd SLSTEaaETE 


——— 


101133 BHI 278 
010416 MOV R4,(SP) ; INDEX,« 6738 
004737 000000V JSR PC; SOFT. ERROR 
013705 000000G MOV L$LUN, ; «, TEMP. UNIT 6739 
012703 000006 MOV 06. R3 ; «OFFSET 6741 
010300 10%: MOV R3,RO ; OFFSET, « 6743 
06 000076 ' ADD ICST. 
016146 000012 MOV 12CRi), -¢SP) ; *#(SAVE.ADDR),« 
042716 177760 BIC 0177760, (SP) 
CMP (SP)+,(SP)+ 
1 BNE ii 
032710 040000 BIT 40000, (RO) , 6744 
7 BEQ 11$ 
011046 MOV CRO), -CSP) ; 6747 
000316 S (SP) 
042716 177760 BIC #177760,(SP) 
012637 MOV (SP)+,L$LUN 
BR 12$ ; 
062703 11$%: #24 ,R3 ; #,OFFSET 
020 000102 CMP R3, 0102 ; OFFSET. « 
003747 BLE 10$ 
123: CLR RO ; 
153700 001254' BISB $APT.MODE,RO 
i CLR 1 : 
151201 BISB (R2),R1 
006201 ASL 1 
966107 000000° ADD P AAACR1),PC ; Case dispatch 
032700 000001 14%: BIT #1,RO ; 
001403 BEQ 1 
012716 000062 MOV 862. (SP) ; 
012716 000062 1S$: HOV 862,(SP) : 
032700 000001 16$: BIT #1,R0 : 
001 BEQ 173 
012716 000063 HOV o65,(SP) : 
012716 000063 17: MOV 663, (SP) , 
0004 BR 253 
032700 000001 183: BIT #1,RO ; 
00140 BEQ 193 
012716 000064 MOV 864.(SP) ; 
012716 000064 19$: HOV 964,(SP) : 
032700 000001 203: BIT #1,RO : 
00140 BEQ 218 
012716 000065 HOV 065. (SP) : 
012716 000065 218: MOV #65, (SP) : 
BR 253 
223: ROR RO : 








! 
i 


_— ee ome 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5 Page 205 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK$USER2: [MLYNAR. FRO] ZROAHO. BL2;3 (57) 
000536 103007 BCC 243 
000540 012716 000066 MOV 066.(SP) ; 6780 
000544 010446 235: MOV R4,-(SP) ; INDEX, « 
000546 004737 000000V JSR PC. ERR. SOFT. RTNE.APT 
000552 005726 TST (SP )+ 
000554 000404 BR 26% ; 6778 
000556 012716 000066 24%: MOV 066, (SP) , 6782 
000562 000000V 253: JSR PC, ERR. SOFT. RTNE 
000566 010537 000000G 26$: MOV RS5,L$LUN ; TEMP.UNIT,« 6786 
000572 012716 000000G 278: MOV @CRLF , (SP) : 6792 
000576 012746 000001 MOV @1,-CSP) 
000602 010600 MOV SP RO ; SP,« | 
000604 104414 TRAP 14 | 
000606 010416 MOV R4,(SP) ; INDEX,« 6793 
000610 004737 000000G JSR PC. EMS.EL 
000614 062706 000010 ADD @10,SP : 
000620 000207 RTS PC ; 6651 
+ Routine Size: 201 words, Routine Base: ‘sCODE$ + 24234 
+ Maximum stack depth per invocation: 12 words | 
| 
000000 .PSECT $PLIT$, RO. OD | 
P_AAA: ; CASE Table for DATAGM+0420 675 
000000 13$: .WORD 0 ; 148) 
000002 000022 .WORD 22 ; (16$ 
000044 .WORD 44 ; (188) 
000066 . WORD ; (208) 
000010 000110 WORD 110 ; (228 
; 6795 i 
; 6796 1 : 
; 6797 1 'MMM if (.SAVE_ADDR [EL_CRN_L LO) eql .LAST_PKT [.ICTLR, LAST_CRN_LO}) and 
; 6796 1 'MMM (.SAVE_ADOR [EL_CRN_HI} eql .LAST_PKT {.ICTLR, LAST_CRN_HI}) 
; 6799 1 ! MMM then — 
- yo800 1 oMMM begin * LOG REFERS TO THE LAST RESPONSE RE 
: 68601 1 
: 6802 1 iMMM if .LAST_PKT [.ICTLR, LAST_HRD_ERR] eql HRO_NOT_OCCURED ' IF SOFT ERROR HAD OCCURED 
t 6603 1 ‘MMM then 
3 6804 i 
: 6805 i ' MMM a .SAVE_ADDR [EL_FORMAT] lequ 4 
3 6806 1 ‘MMM 
: 6807 1 MMM “begin 
; 6808 1 1HMM T_ERROR (. index); ! UPDATE SOFT ERROR COUNT 
j 6809 i ‘MMM TEMP -ENIY = .L$LUN; ! SPVE UNIT NUMBER AS KNOWN TO DRS 
t 
, 6811 i ‘MMM incr OFFSET from (0 + OF_UN) to ((UNITS_PER_CNTR - 1) * UNIT_SIZE + OF_UN) by UNIT_SIZE do 
. 
>; 6813 1 ‘MMM f (.ICST_ADDR [.OFFSET + OF _DATA, D_DISK_NUM]) eql .SAVE_ADDR [EL_DK_NUM)) and 
; 6614 il 'MMM (.ICST_ADOR [.OFFSET + OF DATA, D_PRES] eal PRESENT) 


~~ 


———eeee eee = ee 








Oe ee he ee be be ee ee ee be ee ee be ee ee he pe ee ee pe be pe be be be be ee be ee ee ee pe pe pe 


we ee ee ee - 


RD/RX EXERCISER 
ROR 


X INTERRUPT SERVICE ROUTINES 


then 


CseUN = .ICST_ADDR [.OFFSET + OF _DATA, D_UNIT); 


exitloop; 
end; 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


case * eee [EL_FORMAT) from 0 to 4 of 
se 


{O] : if 
t 


. APT_MODE 


ERR_SOFT_RTNE_APT (50, 


se 
ERR_SOFT_RTNE (50); 


{1) : if 


. APT _MODE 


ERR_SOFT_RTNE_APT (51, 


else 


{2) : if 


ERR_SOFT_RTNE (51); 


.APT_MODE 


then 
ERR_SOFT_RTNE_APT (S52, 
else 


(3) : if 


ERR_SOFT_RTNE (52); 


. APT _MODE 


ERR_SOFT_RTNE_APT (53, 


else 


(4) : if 
t 


ERR_SOFT_RTNE (53); 


. APT _MODE 


ERR_SOFT_RTNE_APT (54, 


lse 
ERR_SOFT_RTNE (54); 


tes; 


L$LUN = .TEMP_UNIT; 
SFT_ERR_PRINTED = TRUE; 
e 


lse 
PRINTF (DBM109. .SAVE_ADDR [EL_FORMAT)); 


if not (.SFT_ERR_PRINTED) 


hen 
PRINTB CCRLF); 


mee ee 


. index) 


. index) 


. index ) 


. index) 


. index) 


SEQ 0469 


VAX-11 Bliss-16 V4.1 
DISK $SUSER2: [MLYNAR. aI ZROAHO. BL2;3 


! CORRECT UNIT NUMBER FOR ERROR MESSAGE 


CONTROLLER ERROR 


HOST MEMORY ACCESS ERROR 


DISK TRANSFER ERROR 


SOI ERROR 


SMALL DISK ERROR 


RESTORE UNIT NUMBER 
SOFT ERROR PRINTOUT OCCURED 


ERROR LOG FORMAT UNKNOWN 


EXTRA CARRIEGE -RETURN/LINE -FEED 


RQAMS RD/RX EXERCISER 
von? RORX INTERRUPT SERVICE ROUTINES 


= 2 Se & Ge G2 Ge Ge =] Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge GF os oe 
NN 
Neke ] 

luael aml aml aml sel al anol ol anal ool al al sal aad eal tol oad ood eae 


EMS _EL (.index); 
end 


else 
ae” SAVE_ADDR [EL_CRN mie, lssu 


.SAVE_ADDR [EL_CRN_HI) eql -LAST 


a SAVE -ADDR (EL_CRN_LO) lssu 
if (€.Q@I0 ({.ICTLR) ealu 0) 
then | 
in 
PRINTB CCRLF); 
EMS_EL (.index); 
; 


end; 


SEQ 0470 
10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-56 Page 207 
10-Oct-1985 09:21:16 DISK $USER2: (MLYNAR. 7RQ)ZROAHO. BL2;3 O98 (57) 


! PRINT PACKET CONTENTS 
! CORRESPONDING RESPONSE RECEIVED 


.LAST_PKT f. .ICTLR, LAST_CRN. 4G}} @ 
T_PKT {.ICTLR, LAST_CRN_HI}) an 
LAST_PKT {.ICTLR, LAST_CRN "toq)9~ 


! MMM 
! LOG REFERS TO SOME PREVIOUS RESPONSE 


! CARRIAGE -RETURN/LINE -FEED 
! PRINT PACKET CONTENTS 


| 


VVVRVNVNNUUUUN UNMRUNUNVRNVNNNVAUNVUNVUNNVNNNNNNNNNA Perr bepee 





antennae Caaeas ee eee eee errr e ee ee eee renner n ne crr nner area erence TT i i i i A rm 


+ 
RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-S5862 a pees 208 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: (MLYNAR. 7RG}ZROAHO. BL2;5 99" 58) 


GLOBAL routine SGFT_ERROR (index) : novalue = 


> 


THIS ROUTINE UPDATES THE SOFT ERROR COUNT IN THE TALLY TABLE FOR EACH 
ERROR LOG MESSAGE RECEIVED 


IMPLICIT INPUTS: 
ICST_ADDR - ADDRESS OF THE INTERRUPTING CONTROLLER'S CST 


= O@ SS +e ee +e ta 


begin | 
local | 
FOUND: byte initial (byte (FALSE)), | 
ee D : byte initial (byte (FALSE)), 
> wor 


d, 
TALLY_ADOR : ref block {TALLY_LEN, word] field (T_FIELDS), 
ELOG_ADOR : ref block [EP_LEN, word] field (EP_FIELDS); 


ELOG ADDR = ELOG_PKT + (.index « EP_LEN *# 2); ' ADOR 
ERROR_C = .ELOG ADDR (EL _CODE); ' ERROR CODE 
ERROR ~ “Su ELOG. ADDR (EL_SUBCODE); ' 


if (BIT_TST (SWP_FLAGS, SWF_TRY)) and 
(.ELOG_ADOR [EL_FORMAT] eql 2) 


rg ae = ,ELOG_ADDR (EL_RETRY]) 
*RETRIES * 1; 
if .RETRIES eql 0 
° RETRIES = 1; 
incr OFFSET from (0 + OF_UN) to (CUNITS_PER_CNTR - 1) * UNIT_SIZE + OF _UN) by UNIT_SIZE do 


f ¢.21CST_ADOR [.OFFSET + OF DATA, b-DIsk Nua eal CLOG ADDR ADDR (EL_DK_NUM]) 


COUNT EACH RETRY 
IGNORE RETRIES 
IN CASE OF A BUG 


DISK TO UNIT NO. 
ee .OFFSET + OF _DATA, D_DISK 
n 


in 
F TRUE ; 
UNIT = " Icst. ADDR [.OFFSET + OF DATA, D_UNIT]); 
exi tloop: 


DISK'S UNIT NO. 


f (.ELOG_ADDR [EL_SUCCESS]) or 
‘i (.ELOG_ADDR [EL _CONTINUE }) 
en 
SOFT_OCCURED = TRUE; 


SOFT ERROR FLAG 


Se ee 


~ en 
OF SF SF OF SF SF SF SF SF SF SF SF SF SF SF SH GE SS Ge SF SF GE GF GF GF GF SF SP Ge Ge GF Ge GF GF GF GF GF GE Gt ue GF Ge SF Se Os OF Gs Gs Be os Os Os Se 


3 
nN 


VUUUUUUUUUUW WU UII UI UII & GI GG Gt Gt Gt Gt Gd dd Gd td Gt Gt Gd Gt Gt dd Gd Gt Gd Gt Gd GP PD 


a A scenes me mtn 


SEQ 0472 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-5862 Page 209 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [MLYNAR .ZRQ)ZRGAHO.BL2;3 oe 58) 
if . FOUND ! IF UNIT FOUND 

then : 
in 
TACLY ADDR = TALLY + (.UNIT *« TALLY_LEN «@ 2); ' ADDR OF TALLY TBL 
a ! FOR SOFT ERRORRS 
selectoneu .ERROR_CODE of 
Set | 
(ST_MFE): TALLY_ADDOR [ERR_SFT_SEK] = .TALLY_ADDOR [ERR_SFT_SEK) + .RETRIES;! SOFT-MEDIA FORMAT | 
{ST_DAT]: if .ERROR_SUB eql 2 § SOFT-DATA 
the | 


n 
, TALLY_ADDR [(ERR_SFT_SEK] = .TALLY_ADDOR [ERR_SFT_SEK] + .RETRIES 
se 
TALLY_ADDR [ERR_SFT_DAT]) = .TALLY_ADDR [ERR_SFT_DAT] + .RETRIES; 


(ST_HST]): TALLY_ADOR [ERR_SFT_HST] = .TALLY_ADDR [ERR_SFT_HST]} + .RETRIES;! SOFT-HOST ACCESS 
(ST_CNT]: C_ERR_TBL (.ICTLR, C_ERR_SFT) = .C_ERR_TBL [.ICTLR. C_ERR_SFT) ’ A Fe 
SOF T - CONTROLLER 
{ST_ORV]): if .ERROR_SUB eql 3 § SOFT_DRIVE 
then 


TALLY_ADDR (ERR_SFT_SEK) = .TALLY_ADOR [ERR_SFT_SEK] + .RETRIES 
se 
TALLY_ADDR [ERR_SFT_ORV) = .TALLY_ADDR [ERR_SFT_DRV) + .RETRIES; 


tes 
else 
if €.ELCs_ADDR [EL_CRN_LO) eql 8? and 
( .ELOG_ADOR (EL _CRN_HI eql 0) 


selectoneu .ERROR_CODE of 
set 


(ST_MFE): TALLY_ADDR [ERR_HRD_SEK] = .TALLY_ADDR [ERR_HRD_SEK] «+ 1; ! HARD-MEDIA FORMAT 
(ST_DAT]: if .ERROR_SUB eql 2 ! HARD-DATA 
TALLY_ADDR [ERR_HRO_SEK) = .TALLY_ADOR [ERR_HRD_SEK] «+ 1 
+8¢ ALLY_ADOR CERR_HRD_DAT) = .TALLY_ADDR [ERR_HRD_DAT]) «+ 1; 
(ST_HST]: TALLY_ADDR [ERR_HRD_HST) = .TALLY_ADDR [ERR_HRD_HST]) + 1; : HARD-HOST ACCESS 


(ST_CNT]): C_ERR_TBL (.ICTLR, C_ERR_WRD) = .C_ERR_TBL [(.ICTLR, C_ERR_HRD) + 1; 
! HARD-CONTROLLER 


{ST_DRV]): if .ERROR_SUB eql 3 ' HARD-DRIVE 
n 
TALLY_ADDR [ERR_HRD_SEK) = .TALLY_ADOR [ERR_HRD_SEK) + 1 


- eee eee 


a A A 


gaan 
vo2.3 
6996 3 
6997 3 
6996 3 
6999 3 
7000 3 
7001 2 
7002 2 
7003 2 
7004 2 
7005 2 
7006 2 
7007 2 
7008 2 
7009 1 
025056 
000000 0041357 
000004 005746 
000006 105046 
000010 105046 
000012 016646 
000016 012746 
004737 
oooaes 062700 
000052 010001 
000034 116100 
000040 042700 
000044 1050035 
000046 0500035 
000050 016105 
000054 006205 
000056 006205 
000060 006205 
000062 006205 
000064 00620 
000066 042705 
000072 013700 
000076 0427 
000102 
000106 001010 
000110 126127 
000116 001 
0001 
000122 156104 
0001 0004 
0001 012704 
000134 005704 
000136 1002 
000140 012704 


RO/RX EXERCISER 
RDRX INTERRUPT SERVICE ROUTINES 


end; 


177740 


000020 


end 


if .SOFT_OCCURED 
C_ERR_TBL ([.ICTLR, C_ERR_SFT] = 
C_ERR_TBL [.ICTLR, C_ERR_HRD) = 


else 


000002 


tes; 


lse 
TALLY_ADDR [(ERR_HRD_DRV) = 


. SBTTL 
.PSECT 


SOFT .ERROR: : 
JSR 


Wr 


ww 
es ee 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


VAX-11 Bliss-16 V 582 Page 
DISKSUSER2: CML YNAR: FRaIZROAHO. BL2;3 


-TALLY_ADDR [ERR_HRD_DORV) «+ 1; 


! UNIT NOT FOUND 


.C_LERR_TBL ([.ICTLR, C_ERR_SFT) + 1 
.C_ERR_TBL (.ICTLR, C_ERR_HRD) «+ 1; 


at INTERRUPT SERVICE ROUTINES 


sCODE$, 


PC BL $MUL 
@ELOG.PKT.RO 
RO.R1 

SOtRI) ,RO 

177746, RO 


877777.RO0_ 
ie - 100000 
16(R1), 42 
1% 

R4 
51(R1),R4 
2% 

#1,R4 

R4 


3$ 
#1,R4 


F OUND 
SOFT ..OCCURED 
INDEX, # 


*,ELOG.ADOR 
*CELOG.ADOR),*« 


ERROR . CODE 


#, ERROR . CODE 
#CELOG. ADDR). ERROR . SUB 
ERROR . SUB 


«, ERROR. SUB 


*CELOG.ADDR), 


RETRIES 
*(ELOG.ADDR).RETRIES 


*, RETRIES 
RETRIES 
#,RETRIES 





SEQ 0473 


! RTNE SOFT_ERROR 


210 


oe" 58) 


69 


691 


691 





easier 


012702 
0200 


RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


3%: 
4$: 


000006 
000076‘ 
0000 


5$: 


7$: 


9$: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


#177760,(SP) 


St eee 


SEQ 0474 


| lla aaah 


6 
@24,R2 
R2,¢102 
&¢ 


#1,4(SP) 
\ ahead 


R1 

SSCRO).R1 
4,R1 

R1,55(RO) 


22% 
10(SP), CSP) 
#66 ) 


VAX-11 Bliss-16 V4.1-582 Page 211 
DISKSUSER2: [MLYNAR .ZRQ)ZRGAHO.BL2;3 (58) 
; #,OFFSET 6927 
; OFFSET, « 6929 
; *CELOG.ADOR),« 6930 
; *,FOUND 6933 
3 6984 
$ *«, UNIT | 
; 69 

; *,OFFSET 692 

; OFFSET,« 
; *,SOFT.OCCURED 694 

; *,FOUND 694 

; UNIT,«* 6 

; *,SOFT.OCCURED 6 

; ERROR.CODE,« 695 

; ERROR .CODE,« 695 

: 695 

; TALLY .ADOR,« 

; ERROR.SUB, + 695 

FA 695 

; RETRIES,« 

3 695 

: 695 

; RETRIES,« 

3 6 

; ERROR.CODE,# 6961 


*#(TALLY.ADDR),# 
RETRIES,« 
#,#( TALLY .ADDR) 


ee ee - ~ 


RD/RX EXERCISER 


RORX INTERRUPT SERVICE ROUTINES 


000012 
000104’ 


000001G 


ee 


10%: 


11%: 


12s: 


13%: 


14$: 


15%: 
16%: 


178: 


18%: 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


21$ 
+ to 


ICTLR,R2 
R2 


Ri 
C.ERR.TBL+1CR2),R1 
R4,R1 

R1,C.ERR. TBL+1(R2) 


R 
S2CRO).R1 
R4.R 
R1,52CRO) 
2is 

Ri 
S4(RO),R1 
R4,R 
tegen 
6(R1) 


2i 

R3,@12 
ICTLR,R2 
C.ERR. TBLCR2) 
2is 

“so 

RS. @35 


ee 


VAX-11 Blies-16 V4.1-56 
DISK $USER2: [ML YNAR 


; ERROR . CODE , + 


; RETRIES,« 


ERROR . CODE , « 
ERROR . SUB , + 


RETRIES,« 


RETRIES, + 


*(ELOG.ADOR) 
*CELOG. ADDR) 
ERROR .CODE , « 
ERROR . CODE , « 


TALLY .ADOR , 
ERROR . SUB, 


ERROR .CODE , « 
*( TALLY. ADDR) 
3 ERROR . CODE , « 


ERROR . CODE , « 
ERROR . SUB, 





*(TALLY.ADOR),« 
#,#(TALLY.ADOR) 


*(TALLY.ADDR),« 
*,*( TALLY.ADOR) 


. SEQ_0475. 
‘ZRQ)}ZROAHO.BL2;3 (58) 


6950 
6963 


BR 


tf 


697 


oO 
0 


anann an @ 


AAD 
co) 
~ 


—_e — ee ae 


ee ee eee ee 


-— —— oe —— 
rr cp ee -- — = 





ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 v4.1-582 Page 213 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: [ML YNAR . ZRQ)ZRQAHO.BL2;3 (58) 
000646 001005 BNE 203% 

0036 105260 000046 19%: INCB 46( RO) ; *(C TALLY.ADOR) 

oooess 000402 Bi 21% ; 

000656 105260 000050 20%: INCB 50(RO) ; *#(TALLY.ADOR) 

000662 005726 21%: TST (SP )-« : 

000664 000415 BR 24% : 

000666 013700 000104’ 223: MOV ICTLR,RO j 

000672 006300 ASL RO 

000674 700 @C .ERR.TBL,.RO 

000700 032766 000001 000004 BIT #1,4(SP) 3 #,SOFT.OCCURED 

000706 001403 BEQ 23% 

000710 000001 INCB 1CRO) ; 

000714 000401 BR 24% ‘ 

000716 105210 23%: INCB CRO) ' 

000720 062706 000012 243: ADD #12.,SP ; 

000724 000207 RTS PC 

s Routine Size: 255 words, Routine Base: ‘sCODE$ + 25056 

+ Maximum steck dcepth per invocation: 13 words 


8 


703 
7038 


~i~i-~J 


SSeeeee 2 eee J 
SSSESESEES SES ESEse 
VVUNVVUNVVNNVNNVUNVUNNVNNNNVNNVUN UNA UNVUNNNNNVUNNNNVNN Re eee 


bo be] 
wu 


Sseacce 
gSSSESS 


RD/RX EXERCI 
ROR 


SER 
X INTERRUPT SERVICE ROUTINES 
routine ERR_HRD_RTNE CERRNUM) : novelue = 





10-Oct-1985 09:41:47 VAX-11 Bli 


10-Oct-1985 09:21:16 DISK $USER2 OT TAL YNAR: TRO)ZROAHO. BL2;3 


fe 
! THIS ROUTINE DECIDES WHETHER TO ISSUE AN ‘ERRHRD’ MACRO CALL TO ORS OR TO FAKE 
. THE SAME EFFECT WITHOUT ISSUING THE CALL 


begin 


lecel 
CUR_PRIORITY : 


builtin 
PC; 


word; 


GETPRI_ CCUR prone 





!ZZZ SETPRI CPRIO4 
SETPRI (. BRLEVELD» 





i? (.ERRNUM lequ 34) or 
ae > ateu, 58) or 


if BIT_TST CSWP_FLAGS, SWF _HRD) 


then 
!ZZZ cese .ERRNUM from 31 to 45 of 

i case .ERRNUM from 31 to 73 of 
(31): ERRHRD (31. EGH_350, 
{32}: ERRHRD (32. EGH_30, 
(33): : 
(34): ; 
(35): ’ 
(36): ERRHRD (36. EGH_350, 
{37}: ERRHWRO (37. EGH_50, 
(38): 3 
{39}: ERRHRD (39, EGH_30, 
{40}: ERRHRD (40, EGH_30, 
(41): ERRHRO (41, EGH_30, 


EmMS_30); 
EMS_30); 


EMS_30); 
EMS_30); 


EMNS_30); 
EMS_30); 
EMS_30); 


DON'T ALLOW SOFT_ERROR MESSAGES TO COME 
DON'T ALLOW SOFT_ERROR MESSAGES TO COME 


FOR NON-BAD BLOCK TYPE ERRORS 


IF ERRORS TO BE TREATED NORMALLY 


INCLUDE DUP NUMBERS (60-73) ZZZ 


INVALID COMMAND 
COMMAND ABORTED 


MEDIA FORMAT ERROR 

WRITE PROTECTED 

COMPARE ERROR 

DATA ERROR 

HOST BUFFER ACCESS ERROR 
CONTROLLER ERROR 

ORIVE ERROR 


SEQ 0477 
Page 


ZZZ 


SEQ 0478 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 V Page 215 
vo2.3 RDORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $USER2 CML YNAR: +RaIZROAHO. BL2;3 (59) 

7063 2 

Lh 6 ¢ : (42): ERRHRD (42, EGH_30, 0); ! HOST WRITE COMPARE ERROR 

Lbs $ [43]: ERRHRD (43, EGH_30, EMS_30); !' MESSAGE FROM INTERNAL DIAGNOSTICS 

ioe : (44): ERRHRD (44, EGH_30, EMS_30); ! DUPLICATE UNIT NUMBER 

Ls dy ¢ (45): ERRHRD (45, EGH_30, EMS_30); ! INVALID END CODE 

7076 : my : ; {LEAVE ROOM FOR SOFT ERROR NUMBERS AND SOME PADDING 222 
: ; ! 

7074 2 48): ; ! 

7075 2 49): : : 

7076 2 50): ; ' 

7077 2 51 ; ! 

7076 2 52): ; ! 

7079 2 53): ; ! 

7060 2 54}: : ! 

7061 2 55]: ; ! 

7082 2 56]: ; ' 

7083 2 57): ; ! 

70864 2 58): : ! 

7085 2 59): ; ! 

7086 2 

7087 2 60]: ERRHRD (60, EH_12. EMS_30); !'NOT USED ZZZ 

7066 2 61]: ERRHRD (61, EH_13. EMS_30); ‘SUCCESSFUL MESSAGE ZZZ 

7089 2 62 ERRHRD (62, EH_13, EMS_30); ‘ILLEGAL UNIT NUMBER ZZZ 

7090 2 63 ERRHRD (63, EH_13, EMS_30); ‘ILLEGAL RELATIVE OR PHYSICAL BLOCK ZZZ 

7091 2 ERRHRD (64, EH_13, EMS_30); !‘DEVICE ERROR ZZZ 

7092 2 65 ERRHRD (65, EH_13, EMS_30); : ZERO LENGTH MESSAGE Z2ZZ 

7093 2 ERRHRD (66, EH_8, EMS_30); 'DUP UNKNOWN STATUS CODE ZZZ 

7094 2 67 ERRHRD (67, EH_7. EMS_30); ‘INVALID COMMAND ZZZ 

7095 2 68): ERRHRD (68, ty # MS_30); 'NO REGION pe Z2ZZ 

7096 2 69 ERRHRD (69, EH_7, EMS_30); :NO REGION SUITABLE Z2ZZ 

7097 2 70 ERRHRD (70, _?7, EMS_30); PROGRAM NOT KNOWN ZZZ 

7098 2 71): ERRHRD (71, EH_7, EMS_30); LOAD FAILURE 22ZZ 

7099 2 72): ERRHRO (72, EH.7, €&MS_30); 'STANDALONE 2ZZ 

733° : 73): ERRHRD (73, EH_8, EMS ~30); ‘DUP UNKNOWN STATUS CODE ZZZ 

7102 2 tes 

7103 2 else 

7104 3 begin s 

7105 3 ‘saeeincrement error coun ! INCREMENT TOTAL ERROR COUNT 

Lys : PRINTB CHRD_MSG, reRRNOM. -L$LUN, .PC); ! PRINT ERROR MESSAGE JUST LIKE DRS 

7108 53 if .ERRNUM neq 42 

7109 3 then 

7110 4 in 

7111 4 PRENTB CHRD_SUB); ! NEXT LINE FOR NON-HOST COMPARE ERRORS 

7il2 4 EMS_ERR (); ! PRINT REST OF THE INFORMATION 

7113 3 end; 

7114 2 end; 

7115 2 


ZRQAM3 
vo2.3 
3 7116 2 
: 7247 6hCUS 
8 7118 2 
5 7119 2 
r 7120 3 
s 7i2i 2 
: 7i2z2 2 
$ 7123 2 
F 7124 2 
: 7i25 2 
; 7126 2 

i 8 7i27 2 

| 8 hy $ 

; § 

| 8 +180 2 
ae 
' 
s ais 3 
$ 7134 3 
’ 7135 3 
5 7136 2 
; 7137 2 
$ 7138 2 
$ 7139 2 
$ 7140 1 
000000 004137 
000004 104440 
000006 i 
000010 013700 
pooo ta epee 
sete 920127 
0000 127 
000034 101006 
000036 127 
000042 001405 
000044 7 
000050 1 
000052 po 7 
seeeee S21083 
000066 010100 
000070 162 
000074 0906300 
000076 066007 
000102 104456 
000104 000037 


re re ee ee 


AY 


RO/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


if €. ERRNUM 
C .ERRNUM 


if BIT_TST (SWP_FLAGS, SWF_BLK) 
then 


else 


eql 35) 
eql 38) 


or 


selectoneu .ERRNUM of 
set 


(35): 
(38): 
tes 


tesesincrement error count 
.ERRNUM, 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


-_———— . ee ee 


SEQ 0479 
VAX-11 Bliss-16 V4.1-582 Page 216 
DISK $SUSER2: (MLYNAR . ZRQ)ZROAHO.BL2; 3 (59) 


! FOR BAD-BLOCK TYPE ERRORS 


ERRHRD (35, EGH_30, EMS_30); 
ERRHRD (38, EGH_30, EMS_30); 


SETPRI (.CUR_PRIORITY); 


end; 


-L$LUN, 


-PC); 


-SBTTL ERR.HWRD.RTNE RORX 
RTNE : 


TRAP 


TRAP 


R1, $SAVE2] 
40 


RO,R2 
BRLEVEL ,RO 


10(SP),R1 

R1,@42 

i$ 

R1, 046 

1$ 

R1, 044 

i$ 

R1, 045 

e7$ 
#10000, SWP ..FLAGS 


P.AABCRO),PC 
356 


37 
EGH .30 





IF ERRORS TO BE TREATED NORMALLY 


MEDIA FORMAT ERROR 
DATA ERROR 


INCREMENT TOTAL ERROR COUNT 
PRINT ERROR LINE JUST LIKE ORS 
PRINT NEXT LINE TOO 

PRINT REST OF THE INFORMATION 


PRIORITY BACK TO NORMAL 


INTERRUPT SERVICE ROUTINES 


«,CUR .PRIORITY 


o So 
Sf 


; ERRNUM,« 7 

3 70 

3 7031 
3 70 

: 703 
$ 703 
; Case dispatch 

; 7042 


eee eee ee 


—— -—-ece= 


SEQ 0480 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAK-11 Bliss-16 v4.1-582 

v02.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK$USER2:(MLYNAR.ZRQ)ZRLAHO.BL2;3 

000110 0000006 .WORD €&MS.30 

000112 000567 BR 308 , 

000114 104456 S$: TRAP 30s-« SB ; 

000116 000040 WORD 40 

000120 0009006 -WORD GH. 30 

000122 000000G “WORD &EMS.30 

000124 000562 BR 303 , 

0001 104456 63: TRAP 3=s-s«S6 ; 

0001 000044 WORD 44 

000132 0000006 -WORD €EGH.30 

000134 000000G “WORD €EMS.30 

000136 000555 BR 30% , 

000140 104456 7$: TRAP Os s«S6 ; 

000142 000045 WORD 45 

000150 000550 BR 303 , 

000152 104456 8$: TRAP 3 s«S6 ; 

000154 000047 WORD 47 

000156 “WORD GH. 

000160 “WORD €&MS.30 

000162 000574 BR 333 , 

000164 104456 9%: TRAP 3s «S6 ; 
166 000050 .WORD 50 

000170 000000G -WORD £GH.30 

000172 000000G ‘WORD EMS. 

000174 000567 BR 333 ; 

000176 104456 10$: TRAP 30 s-«56 ; 

000200 000051 WORD 51 

000202 000000G .WORD €GH.30 

000204 0000006 .WORD £&MS.30 

000206 000562 BR 33$ , 

000210 104456 11$: TRAP s«C#S6 : 

000212 000052 WORD 52 

000214 0000006 -WORD €&GH.30 

000216 000000 “WORD 0 

000220 000555 BR 33% ‘ 

000222 104456 12$: TRAP 3 s«S6 : 

000224 000053 .WORD 53 

000226 -WORD EGH.30 

000230 0000006 WORD €&MS.30 

000232 900550 BR 333 , 
34 1044 13%: TRAP 6 56 ; 
36 s00088 WORD 54 

000240 000000G .WORD €EGH.30 

000242 000000G .WORD €&MS.30 

000244 000543 BR 33¢ ; 

000246 104456 14$: TRAP 30«s-« 56 : 

000250 000055 WORD 55 

000252 “WORD &EGH.30 

000254 “WORD €&MS.30 

000256 000536 BR 333 F 

000260 104456 1S$: TRAP 3ss« S65 ; 


Page 217 
(5S 


9) 


7039 
7044 


——- —- 





_->-— ee ee eee ee _ — ~—- _ 


SEQ 0481 


RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blises-16 v4.1-5862 Pege 218 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: ([MLYNAR. TRAIZROAHO. BL2;3 (59) 
WORD 74 
WORD €H.12 
WORD EMS.30 
BR 33% $ 7039 
168: TRAP 56 ; 7088 
WORD 75 
EH.13 
WORD EMS.30 
BR 33% : 7039 
17%: TRAP 56 $ 7089 
. WORD 76 
WORD €H.13 
WORD EMS.30 
188 TRAP SG 1090 
: : 090) 
.. FF | 
EH.1 
WORD EMS.30 
338 7039 
19$: TRAP a. : 
EH.13 
WORD EMS 
33% : 703 
203: TRAP 56 ; 7 
-WORD 101 
WORD €H.13 
WORD €EMS.30 
BR 333 ; 703 
21: TRAP 56 : 709 
; 102 
EH.8 
‘ EMS .30 
BR 33$ 3 703 
22s: TRAP 56 : 7 
-WORD 103 
. WORD Pe 
.WORD €&MS.30 
BR 3$ ; 703 
23s: TRAP 56 : 7095 
-WORD 104 
-WORD €H.7 
.WORD EMS.30 
BR 33 ; 703 
243: TRAP 56 ; 7096 
-WORD 105 
-WORD €EH.7 
.WORD EMS.30 
BR 33$ : 703 
25%: TRAP 56 : 7097 
. WORD 1 
-.WORD €E 


ee ee re 


33 
tig 


010746 


RD/RX EXERCISE 


R 
RORX INTERRUPT SERVICE ROUTINES 


000052 





000000G 


30$: 
318: 


32%: 
338: 


343: 


358: 


10-Oct-1985 09:41:47 


10-Oct-1985 09:21:16 


3 
PC, -(SP) 


- 


SEQ 0482 


X-11 Blies-16 V4.1-582 Page 219 
DISKIUSERS. : (ML YNAR .ZRQ)ZRQAHO.BL2;3 oe° 59) 
: 7039 
| 7098 
: 7039 
3 7099 
3 7039 
: 7100 

| 
7035 
; PC,* 7106 
; SP, 
| 
3 
? SP ,* 
: 
3 
$ 
$ 
: 
: 
; 
3 
: 
; PC,« 





— ee 


: Routine Size: 
; Maximum steck depth per invocation: 


000012 





013746 
010146 


RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


000000G 


000000G 
000004 


000000G 
000001 
000000G 
000014 


231 words, 


37$: 


Routine Base: 
11 words 


SSSSSSESSSRSSEIS00585 


10-Oct- 
10-Oct- 


#1, -(SP) 
SP,.R 


14 
PC,EMS.ERR 
#14,S 

R2,RO 

41 
PC 
26004 


$PLI7$, RO, 


1985 09:41:47 
1965 09:21:16 


D 


VAX-11 Bliss-16 V4. 
DISK $USER2: [MLYNAR. Sai ZROAHO. BL2;3 


CUR .PRIORITY,+* 


teat 


AWWW WWW Ree OO WIAA S > 
VIWWWWWWUUWUAWWWWaWN rH OeeWoereWUWdeeW 
BA BH OH EH BO OG GO S GO GH GH GO © GH &@ @ @ S But SG 1 @ @ ON 


(oe eee oe | ee eee |e oe | oe ee oe | ae oe ee ee ee ee |e ee oe ee Lee oe ee ee Lee |e ee Le Oi) 


Reed based Bem of tema Cemend lnared Gacnel times) Sem! teem Seemed tems treed tunert tase! bane! rend temad bend bruned 


Table for ERR. HRD. RTNE +0076 


. SEQ 0483 


age 220 
09" (59) 


703 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Bliss-16 V4.1-582 age 221 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2:([MLYNAR.ZRQ)ZRQAHO.BL2;3 (59) 
106 000170 WORD 170 : (168 
000110 000202 "WORD ; C178 
000112 000214 “WORD 214 ; (188 
000114 000226 "WORD ; (198 
000116 000240 “WORD 240 ; (208 
000120 000252 “WORD 252 ; (218 ) 
000122 “WORD 264 ; (229 
| 000124 000276 “WORD 276 ; (238 | 
| 900126 900310 “WORD 310 ; (248 
| 000130 000322 “WORD © 322 ; (258 | 
000132 0003 “WORD 334 ; (268 
000134 000 "WORD 346 ; (288 
000136 000360 “WORD 360 ; (299 


en cee 





YP VMNUUUNVNNNVNRNNNNNNNNUN WUNNNDA Perr ee 


RO/RX EXERCISE 


fe 
RDORX INTERRUPT SERVICE ROUTINES 
routine ERR_SOFT_RTNE CERRNUM) 


rr se ee ~ 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1 


10-Oct-1985 09:21:16 


: novelue = 


fe 
: THIS ROUTINE DECIDES WHETHER TO ISSUE AN ‘ERRSOFT’ MACRO CALL TO ORS OR TO FAKE 
! THE SAME EFFECT WITHOUT ISSUING THE CALL 


begin 


builtin 
PC; 


if BIT_TST (SWP_FLAGS, SWF_SFT) 
then 


! IF SOFT ERRORS TO BE TREATED LIKE OTHER ERRORS 


cese .ERRNUM from 50 to 54 of 
set 
{50]: ERRSOFT (50, 0, 0); ! CONTROLLER ERROR 
(51): ERRSOFT (S51. 0, 0); ' HOST MEMORY ACCESS ERROR 
{S2): ERRSOFT (S52. 0, 0); ! DISK TRANSFER ERROR 
(53): ERRSOFT (S53, 0, 0); ' SDI ERROR 
i" ERRSOFT (54, 0, 0); ' SMALL DISK ERROR 
es 
else 
a error ! INCREMENT TOTAL ERROR COUNT 
— (SFT_MSG, rERRNOM -L$LUN, .PC); ! PRINT ERROR LINE JUST LIKE ORS 
end; 
end; 
-SBTTL ERR.SOFT.RTNE RORX INTERRUPT SERVICE ROUTINES 
-PSECT sCODE$, RO 
020000 000000G ERR .SOFT .RTNE: 
orn ee ees : 
000002 MOV 2(SP),RO ; ERRNUM,« 
000062 _ #62 ,RO 
000140' ADD P.AACCRO),PC ; Case dispatch 
2$: TRAP 57 ; 
-WORDB 62 
-WORD 9 
-WORDB O 
RTS PC 3 
3$: TRAP 57 : 


582 
DISK $USER2: ([MLYNAR. +90) 2ROAHO. BL2;3 09" 60) 


RD/RX EXERCISER 


eee ee ee 


RORX INTERRUPT SERVICE ROUTINES 


s Routine Size: 50 words, 


+ Maximum stack depth per invocation: 


000140 


4$: TRAP 
5%: TRAP 
6%: TRAP 


7%: MOV 


ADD 
RTS 


Routine Base: *sCODE$ + 


words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


Buzoogyrces, 


RZeoeceuxsce 


Cc 
PC, -(SP) 


26722 


$PLIT$, RO, OD 


oc 
tw 


ee ee 


VAX-11 Bliss-16 V4.1-562 
DISKSUSER2: [ML YNAR. FROIZROAHO. BL2;3 


Table for ERR.SOFT.RTNE+0022 


SEQ so 


Page 223 
(60) 


7156 


EL TE LN TT TL RS A SS mR RS 





-— ooo 


SEQ 0487 
ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4.1-582 Page 224 
vo2.3 RORX INTERRUPT SER“ICE ROUTINES 10-Oct-1985 09:21:16  DISKSUSER2: [HL YNAR.ZRQ}ZROAHO.BL2;3 (61) 


routine ERR_HRD_KTNE_APT CERRNUM) : novalue = 
$6 


! THIS ROUTINE DECIDES WHETHER TO ISSUE " ‘ERRHRD’ MACRO CALL TO ORS OR TO FAKE 
' THE SAME EFFECT WITHOUT ISSUING THE CAL 


a 
begin 


locel 
CUR_PRIORITY; 
builtin 
PC; 
GETPRI CCUR_PRIORITY); 


$222 SETPRI CPRIO4); 
SETPRI (.BRLEVEL); 


DON’ u ALLOW SOFT_ERROR MESSAGES TO COME IN NOW 
DON'T ALLOW SOFT_ERROR MESSAGES TO COME IN NOW 


Z22ZZ 


EE LT AT fe Sm 


if .APT_MODE 
then 


in 
maar BOX_ ESTNUM = .RP_ADOR [(LBN_LO); 


.MAIL_BOX_SUBTST = .RP_ADDR [DISK]; 
i 


CHANGE TEST NUMBER TO SHOW LBN UNDER APT ONLY 
CHANGE SUB-TEST NUMBER TO SHOW DISK NUMBER UNDER APT ONLY 


! FOR NON-BAD BLOCK TYPE ERRORS 


37 


+ a ade ad (SWP_FLAGS, SWF _HRD) IF ERRORS TO BE TREATED NORMALLY 
n 


case .ERRNUM from 31 to 45 of 
set 


(31): ERRDF (31, EGH_30, EMS_30); INVALID COMMAND 
(32): ERRDF (32, EGH_30, EMS_30); ! COMMAND ABORTED 
(33):  ; : 
(34): : : 


OF SF Se Ge SF OF OF OF OF GE OT BF OF SF SF GF GF SF GE SF OF SF OF SF OF GE SE GF GF SE GE OF SF BF GE mE Ge Ge BH OF OF OF we GF ue Ge es Os us Os Ee os os 
a 
MPR PPP NID P1010 FIND OD WINN PUNI NUN UII RUNNIN RRND ee ee eee pe 


 uEememene eee... em seal 


EE 


SEQ 0488 


selectoneu .ERRNUM of 
set 


[35]:  ERRDF (35, EGH_30, EMS_30); MEDIA FORMAT ERROR 


ZRQAM3 RDO/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 V4.1-562 Page 225 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK $USER2: [MLYNAR .ZRQ)ZRGQAHO.BL2;3 oe 61) 
; 7229 2 
; ree : (35"; ; ' MEDIA FORMAT ERROR 
; 
F Lt $ ‘%6): ERRDF (36, EGH_30, EMS_30); ' WRITE PROTECTED 
1g 
‘ Leo ¢ (s/): ERRDOF (37, EGH_30, EMS_30); ' COMPARE ERROR 
i 8 
i 8 Lf + : (36): : ! DATA ERROR 
t 
| ; Jes ¢ (39): ERROF (39, EGH_30, EMS_30); ' HOST BUFFER ACCESS ERROR 
' 
$ Lo ¢ {40}: ERRDF (40, EGH_30, EMS_30); ' CONTROLLER ERROR 
| ' 
; Lo | $ (41): ERRDOF (41, EGH_30, EMS_30); ' DRIVE ERROR | 
i | 
, 7244 2 (42): ERROF (42, EGH_30, 0); ! HOST WRITE COMPARE ERROR 
: 
t 94 : (43): ERRDF (43, EGH_30, EMS_30); ' MESSAGE FROM INTERNAL DIAGNOSTICS | 
' 
5 Ls : (44): ERROF (44, EGH_30, EMS_30); ' DUPLICATE UNIT NUMBER 
s 
; 7250 2 {45): ERROF (45, EGH_30, EMS_30); ! INVALID END CODE 
’ 7251 2 tes 
3 7 ec 
; 7253 2 else 
' 7254 ¢ 
r 7255 in 
' 7256 3 ‘seeeincrement error count ' INCREMENT TOTAL ERROR COUNT 
t Ls $4 ; PRINTB COF_MSG, .ERRNUM, .L$LUN, .PC); ! PRINT ERRCR MESSAGE JUST LIKE DRS 
; 
| 50 3 if .ERRNUM neq 42 
: i. , neq 
' 7261 3 
: veee 3 then 
' 7265 4 pegic 
; 7264 4 PRINTS CHRD_SUB); ! NEXT LINE FOR NON-HOST COMPARE ERRORS 
t ree ; EMS_ERR (); ! PRINT REST OF THE INFORMATION 
; : 
’ 7267 2 ; 
: 7268 2 
; 7269 2 f ( ERRNUM eql 35) or ' FOR BAD-BLOCK TYPE ERRORS 
’ 7270 3 € .ERRNUM eql 38) 
$ 7271 3 
: vers 2 then 
: 
’ 7274 g if BIT_TST CSWP_FLAGS. SWF_BLK) ' IF ERRORS TO BE TREATED NORMALLY 
' 7275 2 then 
' 7276 2 
' 7277 2 
: 2 
5 2 
: e 
3 2 


r 


MP NMMNVVVN VUwU uP forD 


RO/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


(36): 
tes 


ERRDF (38, EGH_30, EMS_30); 


SETPRI (.CUR_PRIORITY); 


end; 


000037 
000152’ 


1$%: 


2$: 


as: 


SBTTL a. a RORX INTERRUPT SERVICE ROUTINES 


t 
.L$LUN, 


.PSECT $CODE$, 
ERR.HRD.RTNE.APT: 


R1, $SAVE2] 
40 


RO, 
oe 
#1, APT .MODE 
i$ 


RP . ADDR .RO 
SOCRO), @MAIL .BOX. TESTNUM 


: 2RO 
pe vt Ste 


2 
R1, 046 
2s 
R1, 044 
2s 
R1, 045 


#10000, SWP .FLAGS 


P .AADCRO),PC 


35 
37 
EGH .30 
EMS .30 


-PC); 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


! DATA ERROR 


ce te 


SEQ 0489 
VAX-11 Blies-16 V4.1 


582 ege 226 
DISK SUSER2: (MLYNAR. TRG} ZROAHO. BL2;3 


61) 


INCREMENT TOTAL ERROR COUNT 
PRINT ERROR LINE JUST LIKE ORS 
PRINT NEXT LINE TOO 

PRINT REST OF THE INFORMATION 


PRIORITY BACK TO NORMAL 


#,CUR.PRIORITY 


; Cese dispatch 
: 





Hite 
et ENN EN 
< 2 > 


Att 
~ 





RD/RX EXERCISER 


RORX INTERRUPT SERVICE ROUTINES 


78%: 


108: 


118: 


128: 


13%: 


148: 


153%: 


Se erabcccue 
Bag 853° 


SSen3 
= 383° 


23; * x 
ga3* 333° 
sptsgguts Beas gD 






2. 0 auf 


eae 





e gg 


~ 
ee 
SS 


Sasggu 
$4 ee 
25 se 


ws 
Net 


10-Oct-1985 09:41:47 
10-Oct-1965 09:21:16 


VAX-11 Blies-16 V4. 
DISK SUSER2: [MLYNAR. 





; 721 
7 


: 721 
7 





: 721 
; PC,@ 725 


SEQ 0491 


—e ee ee 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 AX-11 Bliss-16 v4. Page 228 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-0ct-1988 09.21.16 DISK#USERD TMLYNAR ZROTZROAMO.BL2,3 cers 
000316 010146 MOV R1,-(SP) 
900320 012746 0000006 MOV OOF .MSG, -(SP) 
000324 012746 000004 MOV 04,-(SP) 
000330 01 MOV SP.RO ; SP,« 
000332 104414 TRAP 0s_s«1.4 
000334 020127 000052 CMP R1,@52 , 7260 
000340 00141 BEQ 163 | 
000342 012716 0000006 MOV @HRD.SUB, (SP) ; 7264 
000 012746 000001 MOV #1,-CSP) | 
000352 01 MOV SP ,RO ; SP, 
000354 104414 TRAP 4 
000356 004737 0000006 JSR PC,EMS.ERR ' 726 
000362 005726 TST SP) , 726 
000364 062706 000012 16$: ADD $12,SP ; 725 
000370 020127 000043 17$: CMP 1,043 ; 726 
000374 00140 BEQ 183 
000376 020127 000046 CMP R1, 046 ; 727 
001 BNE 218 
032737 40000 0000006 18$: BIT 40000, SWP.FLAGS ; 727 
000412 0014 BEQ 203 
000414 020127 000043 CMP R1,043 ; 7 
000420 001 BNE 19$ 
000422 104455 TRAP 3=s« SS 
000424 000043 .WORD 43 
0004 "WORD EGH.30 
0004 “WORD €MS.30 
000432 000434 BR 213 ; 
000434 127 000046 19$: CMP R1, 046 : 
000440 001031 BNE 21$ 
000442 104455 TRAP =s-s«sSS 
000444 000046 WORD 46 
000446 0000006 “WORD EGH.30 
000450 0000006 “WORD €MS.30 
000452 000424 BR 21% ‘ 
000454 010746 203: MOV PC,-(SP) ; PC,« 
000456 013746 0000006 MOV LS$LUN, -(SP) 
010146 MOV Ri, -(SP) 
012746 0000006 MOV #OF .MSG, -(SP) 
000470 012746 000004 MOV 04,-(SP) 
000474 O1 MOV SP .RO » SP,s 
000476 104414 TRAP «14 
000 012716 MOV @HRD.SUB, (SP) : 
000 012746 000001 MOV #1,-CSP) 
000510 Ol MOV ~RO ; SP,* 
000512 104414 TRAP 
14 004737 000000G JSR PC,EMS.ERR 
000520 062706 000014 ADD .SP : 
000524 010200 21$: MOV RO ; CUR.PRIORITY,« 
000526 104441 TRAP 
000530 000207 RTS PC : 
+ Routine Size: 173 words, 


+; Maximum etack 





depth per invocation: 


Routine Base: 
11 wor 


$CODE$ + 27066 
ds 





SEQ 0492 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47 K-11 Bliss-16 V4.1-582 Page 229 
vo2.3 RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 oreKs USER2: [MLYNAR. FROIZROAHO. BL2;3 oe 61) 
000152 -PSECT S$PLIT$, RO, O 
P.AAD: ; CASE Table for ERR.HRD.RTNE.AP+0126 7219 
000152 38: .WORDB QO : $33 
0001 000012 . WORD 12 ; (5% 
000156 000236 -WORD 236 s (17% 
000160 90002 -WORD 236 s (178 
000162 000236 -WORD 236 s (178% 
000164 -WORD 24 $ $¢} 
0001 0000 . WORD 36 ; (7% 
000170 000236 -WORDB 236 + (178) 
000172 . WORD 50 $ $33 
000174 -WORD 62 ; (9$ 
000176 000074 . WORD 74 ; £108 
000200 000106 . WORD 106 ; £118 
000202 000120 . WORD 120 ; (12s 
000204 000152 . WORD 132 ; (138 
000206 000144 . WORD 144 ; (145 
$ 7299 1 
; 7300 1 


Ss ee 


LT TL To AT mR 8 Se mmm wee wee - - - 


- -— we ~—_ 


- _— — — ee eee ee 


; 


g 


027620 


POD CECE GEO POP RO PUTO PU POP POPOV POND CAPD EE APU POU OPO ROMO POND POPDA e 


SEQ 0493 
RD/RX EXERCISER 10-Oct-1985 09:41:47 VAX-11 Blies-16 V 562 Page 230 
RORX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09:21:16 DISK SUSER2: Cr YNAR: 7RO)ZROAHO. BL2;3 (62) 


routine ERR_SOFT_RTNE_APT CERRNUM, index) : novelue * 


te 
! THIS ROUTINE DECIDES WHETHER TO ISSUE AN ‘ERRSOFT’ MACRO CALL TO ORS OR TO FAKE 
THE SAME EFFECT WITHOUT ISSUING THE CALL 


begin 
lecel 
ELOG_ADDR : ref block (EP_LEN, word] field (EP_FIELDS); 
builtin 
PC; 
ELOG_ADOR = ELOG_PKT + (.index « EP_LEN # 2); ! ADDRESS OF THE SAVED ERROR-LOG INFORMATION 
if .APT_MODE 
then 
aki _BOX_TESTNUM = .ELOG_ADDR eo. , wrk ' CHANGE TEST NUMBER TO SHOW LBN UNDER APT ONLY 
a= L_BOX_SUBTST = .ELOG _ADOR [ ; ! CHANGE SUB-TEST NUMBER TO SHOW DISK NUMBER IN APT ONLY 
" 
ie Der. ret (SWP_FLAGS, SWF _SFT) ! IF SOFT ERRORS TO BE TREATED LIKE OTHER ERRORS 
case .ERRNUM from 50 to 54 of 
set 
(50): ERRDF (50. 0, 0); ! CONTROLLER ERROR 
(51): ERROF (51, 0, 0); ' HOST MEMORY ACCESS ERROR 
(52): ERRDF (S52. 0. 0); ! DISK TRANSFER ERROR 
(53): ERRDOF (53. 0. 0); ' SDI ERROR 
Sohal ERRDF (54, 0, 0); ' SMALL DISK ERROR 
es 
else 
begin 
!eeaeeincrement error count ! INCREMENT TOTAL ERROR COUNT 
= (DF _MSG, .ERRNUM, .LSLUN, .PC); ! PRINT ERROR LINE JUST LIKE DRS 
; 
end; 


-SBTTL ERR.SOFT.RTNE.APT RORY INTERRUPT SERVICE ROUTINES 
-PSECT ‘sCODES, RO 


000000 016646 900002 ERR. SOFT .RTNE.APT: 





ee <8 ee 


eee 


ZRQAMS 
vo2 . 3 
7 
10 908739 
000014 062700 


000102 d 
000104 10445 
0001 000063 
000119 000000 
000112 000000 
000114 000434 
000116 104455 
000 000064 
0001 000000 
000000 
0004 


000206 
000210 000207 


+ Routine Size: 
; Maximum stack 





RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


000210' 


000010 


001254’ 
001256' 


001260 
000000G 


69 words, 


depth per invocation: 


i$: 


4$: 


5$: 


78: 


9$: 


Routine Base: 
8 wor 


CMP 
RTS 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


2¢(SP), -(SP) 


if 
S6(RO), @MAIL .BOX. TESTNUM 
12(RO), @MAIL .BOX.SUBTST 
a 
10(SP),RO 

#62 ,RO 


RO 
P.AAECRO),PC 


BESncAS°oRusoogusoogysconysoogy 
ac 
we ee | 
a o“ 
ne 
Vw 
ww 


x 
Owe 
es 


ro 
> 


«Lent 


$CODE$ + 27620 


VAX-11 Bliss-16 V4.1-56 
DISK SUSER2: (ML YNAR . ZRQ) 


:; INDEX,« 


; *CELOG.ADDR),* 
; *CELOG.ADDR),=« 


2 ERRNUM, « 


:; Case dispatch 


H 
; PC,* 


; ERRNUM,« 


; SP, 


> SEG 0694 
ZROAHO .BL2;3 


me te ee 


ee me = ee 


SEQ sonvs 


ZRQAM3 RD/RX EXERCISER 10-Oct-1985 09:41:47  VAX-11 Bliss-16 V Page 232 
vo2.3 RDRX INTERRUPT SERVICE ROUTINES 10-Oct-1985 09.21.16  DISKSUSER2: LM YNAR ZRQIZROAHO.BL2,3 (62) 
000210 PSECT $PLIT$, RO. D 
PARE: CASE Table for ERR.SOFT.RTNE.A+0066 7328 
000210 23: \WORD 0 ; (38 7 
000212 000012 “WORD 12 ; tas 
14 000024 "WORD 24 ; (S$ 
000216 0000 "WORD 36 ; tes 
3 "WORD 50 ; tvs 
7348 1 
7349 1 
7350 1 end 
7351 1 
7352 0 eludes 


OTS external referenc 
"GLOBL $SAVES, $SAVE4, $SAVE3. $SAVE2 
-GLOBL SLS$SHF, BL$DIV, BL$MOD. BLSMUL . 


PSECT SUMMARY 


Psect Name Words Attributes 
$GGG$ 353 RO. I , LCL, REL, CON 
sCODE $ 6157 Tens: te: EC 
sPLIT$ 73 wi 8 ys (A Se. 6 


Library Statistics 


woecere- Symbols -------- Pages Processing 
File Totel Loaded Percent Mapped Time 
OISK $USER2: (ML YNAR .ZRQ)ZRQAHO.L16;10 411 312 75 21 00:00.1 


COMMAND QUALIFIERS 
BLISS/POP11 ZRQAHO.BL2/LIST=ZRQAHO.LS2/0BJECT=ZRGAHO . OB2/SOURCE =PAGE : 53 


- ES TT LT TT LLL eS mm 


. - ERASED + <RSS eee reer ~ - 


eee me ee ee eee 





VUVVY 


vvv 


vVvuy VUYD 
a 


Ys] 

ra 

~ 

& 
KPVMUNVNNVNVNNNNNNNNNNNNNNANE HH Pere OOOCOOOCOO 


RD/RX EXERCISER 
RORX INTERRUPT SERVICE ROUTINES 


module ZRGAM4 ( 

stitle ‘RD/RX EXERCISER’ 
ident = ‘V01.9’, 
addressing_ mode (absolute), 
Sheree (noeis) 

begin 

Sebttl ‘LASTAD AND SETUP’ 

library ‘ZRQAHO.L16' ; 


10-Oct-1985 09:41:47 VAX-11 Bliss-16 V4. 4 F 
10-Oct-1985 09:21:16 DISK S$USER2: (MLYNAR. 7RG ZROAHO .BL2;3 


'MMM require ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 2ZZ 
require ‘HSAXAO.BLB’ ; ' DIAGNOSTIC SUPERVISOR LIBRARY 22ZZ 
LASTAD 
BGNSETUP (4) 1222 
BGNPTAB 
INIT_IP_ADDR, INIT_INTR_VECT, INIT_BR_LEVEL, #0'000020', 0, 0, RDS2_MAX_LBN, O !22Z 
' IP, VECTOR, BR, DISK ADDR, START BLOCK. END Block 
ENDPTAB 
BGNPTAB 
INIT_IP_ADOR, INIT_INTR_VECT, INIT_BR_LEVEL, #0’ 000001’ 0, RXSO_MAX_LBN, O £222 
! IP, VECTOR, BA, DISK ADOR, START BLOCK, END plock 
ENDPTAB 
BGNPTAB 
INIT_IP_ADOR, INIT_INTR veCT. INIT_BR_LEVEL, #0’ 000002’ 0, RXSO_MAX_LBN, O !22Z 
! IP, VECTOR, BR, DISK ADDR, START BLOCK, END Bt ock 
ENDPTAB 
BGNPTAB 
INIT_IP_ADDR, INIT_INTR_VECT, INIT_BR_LEVEL, #0'000003', 0, 0, RXSO_MAX_LBN, O !222 
‘HERE'S ONE FOR THE 4TH DRIVE 'Z7ZZ 
ENDPTAB 'Z7ZZ 
ENDSETUP 
.TITLE ZRQAM4 RD/RX EXERCISER 
.IDENT /V01.9/ 
. ENABL 


PSECT $&XYZ$, 


BLSLAS::.WORD 


RO 


TSFREE 
. WORD <<TSFREE -<BL$LAS+4>>/2> 
P.AAA: .WORD LS&LAST+30 


SEQ pase 
Page 233 


(63) 


ST Ts 


RD/RX EXERCISER 
LASTAD AND SETUP 


. WORD 
P.AAB: .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
P.AAC: .WORD 
. WORD 
P.AAD: .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
P.AAE: .WORD 
. WORD 
P. AAF . WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
P.AAG: .WORD 
. WORD 
P.AAH . WORD 
. WORD 
.WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
TSFREE: : .WORD 
L$LAST== 
TSPTHV== 
$LASS= 
$REMS= 
$LAS4= 
$REM4= 
$LAS3= 
REM3= 
$$LASi= 
$REM2= 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


surens 
L$LAST+54 
10 


-5630 
154 
4 


1 
0 


0 
"ed 
L$LAST+100 


LSLAS+4 


B 
4 
Pp. 
P. 
P, 
Pp. 
Pp. 
Pp. 
Pp. 
Pp. 


AX-11 Bliss-16 V4. 


1-562 


SEQ 0497 
234 


DISKSUSER2: (MLYNAR. 7RO}ZROAHO. BL2;3 09 63) 


; Plit count word 


; Plit count word 


; Plit count word 


; Plit count word 





a 


ZRQAM4 RDO/RX EXERCISER 
vo1.9 LASTAD AND SETUP 


000000 000207 > A 


| ; Routine Size: 1 word, Routine Base: 
+ Maximum stack depth per invocation: O words 


10-Oct-1985 09:41:47 
10-Oct-1985 09:21:16 


SEND.LINK LASTAD AND SETUP 


PC 
$XYZ$ + 0126 


’ 9137 Oo eludom 
’ PSECT SUMMARY 
$ 
$ Psect Name Words Attributes 
’ sxYZ$ 44 ee Gee: See | 
: Library Statistics 
: : 
; Bie, eR ey. ae gcse ng ese | ate Roe re er Symbols -------- Pages 
; File Total Loaded Percent Mapped 
: 
+ DISKSUSER2: (MLYNAR.ZRQ)JZRQAHO.L16;10 411 7 1 21 
‘ COMMAND QUALIFIERS 
i BLISS/PDOP11 ZRQAHO.BL2/LIST=ZRQAHO.1LS2/0BJECT =ZRGAHO . OB2/SOURCE =PAGE : 53 
Size: 6158 code + 469 date words 
Run Time: 02:19.8 


$ 
El Time: 09:52.7 
Lines/CPU Min: 3922 
Lexemes/CPU-Min: 29675 
Memory Used: 501 pages 
Compilation Complete 


SEQ _ocee 


X-11 Blies-16 V4.1-5 age 235 
DISK SUSERS THO TNAR: FROIZROAHO. BL2;3° oe 63) 
; 9108 


Processing 
Time 


00:00.1 


ZRQAHO.EXE; 3 Memory ellocation map TKB 40.10 P 1 
” 10-OCT-85 09:56 binat 


Partition neme : DUMMY 
ident! tigation ; vo2.3 
Task (see. .12) 


Task attributes: 
Totel address windows: 1. 

Tesk image size : 16704. words 

Task address limits: 002000 103143 

R-W disk blk limits: 000002 000103 000102 00066. 


see Root segment: ZRGAHO 


—_— 


R/W mem limite: 002000 103143 101144 33360. 
Disk Blk limits: 000002 000103 000102 00066. 


Memory ellocetior. synopsis: 


Title Ident File 


. BLK.:CRW,I,LCL,REL,CON) 002000 ‘ 
$CODE$:(RO,I,LCL,REL,CON) 071746 29670. 
024110 10312. ZRQGQAM1 VO2.3 ZRQAHO.0B81;3 
026110 015160 06768. QAM2 VO2.3 ZRQAHO.0B1;3 
043270 030032 12314. ZRQAM3 VO2.3 ZRQAHO.0B82;3 
073322 000316 00206. BI6MUL 2.8 NOEIS. et 
73640 000106 00070. BI6SAV 2.4 NOEIS.OLB;1 
sFFFS :CRW,.O,GBL,REL,CON) 073746 005056 02606. 
73746 56 02606. ZRQAM1 VO2.3 ZRGAHO.0B1;3 
$GGGs :(RO,I,LCL.REL,CON) 101024 001302 00706. 
101024 0013502 00706. ZRQAM3S VO2.3 Z&QAHO.0B2;3 
SOWNS :CRW,D,LCL,REL,.CON) 102326 000244 00164. 
2 000244 00164. ZRQAM2 VO2.3 ZRQAHO.0B1;3 
$PLIT$:CRO,O,LCL,REL,CON) 102572 000222 00146. 
102572 000222 46. ZRQAM3S VO2.3 ZRGAHO.082;3 
$xYZ$ :CRO,I,LCL,REL,CON) 103014 000130 : 
103014 000130 00088. ZRGAM4 V0O1.9 ZRGQAHO.082;3 
Globel symbols: 
ADOR.V 101023-R BITO6 000100 BIT4 000020 BST 074126-R CRLF 025742-R 
BITO7 200 BITS 000040 BUFF .A 100604-R CRN.HI 100716-R 
ASTERI 754-R BITOS 00 BIT6 000100 BUFF .O 100624-R CRN.LO 100714-R 
INT 065106-R BITOS 0v1000 IT7 000200 BYTS.P 100674-R CSR.AD 1004-R 
AZINTO 065070-R 6IT 2 BIT8 CCTLR 100654-R CSR.ME 101002-R 
BAL. 100762-R BIT10 002000 BIT9 001000 COI 100656-R CST 073746-R 
BITO #000001 BITii 000 BLSDIV 073546-R CER.01 017342-R CST.AD 074074-R 
BITOO 000001 BIT12 010000 BLSLAS 103014-R CER.O2 017406-R CTLR.C 1 - 
BITO1 900002 BIT13 020000 BLS$MOD 073 CLK. 100740-R CTLR.I 045266-R 
Bitet 000004 BIT14 040000 BLSMUL 073322- -R CLK.TI 100732-R CUOFF O-R 
BITOS 9000010 BIT1S 100000 BLSSHF 073572-R CMD.TI 100710-R C.ERR. 074546-R 
BITO4 000020 IT2 000004 BOE 000400 CNTR.E 024652-R DASH  025746-R 
BITOS 000040 BITS 000010 BRLEVE 101012-R CREDIT 100724-R DATAGM 067524-R 


006226-R 
006 


007210-R 





DBM126 007260-R 
DBM127 007540-R 
DBM128 007416-R 

S 204-R 


DBM27 005732-R 


SEQ 0499 


ee ——— 


LE a ae 


SEQ 0500 





ZRQAHO.EXE;3 Memory allocation map TKB M40.10 Page 2 
ZRQAHO 10-OCT-65 09:56 
006004-R EH.10 013770-R EX.ONL 015520-R GP$5 026220-R LSAUT 002070-R L&SWLE 026012-R QIO.SI 060240-R 
006044-R EH.12 014020-R EX.OP 015544-R GP$6 026230-R LSAUTO 032242-R LSTEST 002114-R QI0.UN Oaaake R 
006104-R EH.13 014054-R EX.PBN 016010-R GP$7 026242-R LS&CC 2106-R LSTIML 002014-R RANDOM 074506- : 
152-R EH.2 013452-R EX.RBN 016166-R GPS$6 S4-R LSCLEA 032542-R LSUNIT 002012-R RANDY 055234-R 
005102-R EH.3 015512-R EX.RD 015464-R GP$9 026270-R L$CO 002032-R MAN.TS 026074-R RDM.CN 074504-R 
074076-R EH.4 O1 -R EX.RP 016750-R HARD.E 56-R LSDEPO 002011-R MD.INI 053700-R X.A 074122-R 
074120-R_ EH. 0135574-R EX.SA 015350-R HARD.I 046744-R LS&DESC 026130-R MINUTE 730-R RDRX.E 025372-R 
764-R EH.6 013624-R EX.SB 015422-R HOE L$DESP 002076-R 035632-R RD.COU 101010-R 
025410-R EH. 013654-R EX.SBO 015416-R HOE.FL 100741-R LSDEVP 002060-R MSCP.P 074550-R REG.EX 045714-R 
066102-R EH.6 015704-R EX.SC 015366-R HOST.W 064150-R L&DISP 002124-R MSG.01 010252-R RETPKT 076276-R 
044734-R EH.9 O0135740-R EX.TIM 017026-R HOURS 100727-R LSDLY 002116-R MSG.02 - - 
034772-R ELG.FM 015354-R EX.WRD 017016-R HRD.MS 025506-R P 002040-R MSG.03 010340-R RPS.RE ~H 
035100-R : 014720-R EX 15474-R WRO.SU 025704-R LSDTYP 002034-R MULTI. 053234-R Ti 010372-R 
-R ELOG 770S2-R FATAL 5306-R HWPTEO 026000-R LS$DU 033146-R NAME.H -R RPT10 011102-R 
754-R . 037504-R FER.BC 101020-R HWPTE1 026002-R LSDUT 002072-R NAME.L -R RPT11 011170-R 
026072-R EMS.CM 042052-R R.LB 101016-R HWPTSO 025774-R LSDVTY 026110-R 100712-R RPT1i2 011236-R 
“-R EMS.EL 040430-R FERO.L 34-R HWPTS1 025776-R 2052-R NEXT.P 100726-R RPT13 O11 -R 
100664-R EMS.ER 042440-R FERI.L 100736-R HWPT.B 025770-R LSENVI 002044-R NEX.TR 033250-R RPT14 011404-R 
-R -R1 040364-R FILL.B -R -D 025772-R LSERRT 002126-R L 00-R RPT1S 011502-R 
010224-R EMS.R2 040234-R FOR 101015-R HWPT.I 025764-R LSETP 002102-R RPT16 011602-R 
i22-R EMS 042650-R FORCE. 100772-R HWPT.V 025766-R LS#EXP1 002046-R OF .RC 100704-R T2 010456-R 
101014-R EMS.10 042706-R FREE.M 100672-R HWQ1 002460-R LSEXP4 002064-R RPTS 010522-R 
012766-R EMS.12 042750-R FSET.U 0613532-R HWQ2 002474-R LSEXPS 002066-R -R RPT4 1 -R 
01 -R EMS.135 043006-R GET.IO 034466-R HWQ3 002504-R LSHARD 026154-R OVF.CH 063530-R RPTS 010652-R 
0135074-R EMS.14 043050-R T 033620-R 002546-R LS$HIME 002120-R PARITY 033260-R RPT6 010740-R 
013126-R EMS.18 043112-R GET.RA 055124-R HWQ5 002564-R LSHPCP 002016-R PKT.US 076262-R RPT7 011004-R 
013166-R EMS.21 60-R GET.RE -R HWQ6A 002634-R LSHPTP 002022- 1 RPT& 011022-R 
13222-R EMS.24 04-R GPSDIS 026476-R 002706-R LSHRDL 026152-R POLL.C 065540-R RPTS 1050- 
13302-R 0 043252-R 1 26154-R HWQ7A 002762-R L 025764-R POLL.R 065640-R RP.ADD 077050-R 
012724-R ENTRY 50-R GP$10 304-R HWQ7B 003032-R LSHWLE 025762-R RP.IND 077046-R 
36 EOP.FL 100651-R GP$11 14-R 003102-R LSICP 002104-R PRI 000000 RP 077036-R 
000035 ERRBLK 002134-R GP$i2 026330-R 003160-R LSINIT 032230-R PRIO1L SA.REG 100706-R 
34 ERRMSG 002152-R GP$i3 026342-R IBE 1 LSLADP 26-R PRIO2 000100 00700-R 
000037 002130-R GP$14 026354-R 000040 LS$LAST 103020-R PRIO3 000140 SC.CLK 022610-R 
0 ERRTYP 002126-R GP$1S5 026366-R IER 2 L$LOAD 002100-R PRIO4 200 017506-R 
011776-R ERR.CO 014662-R GP$16 026400-R INIT.I 054040-R LSLUN 002074-R PRIOS 000240 SC.CTO 022052-R 
012036-R ERR.OO 014126-R GP$17 O026406-R INIT.O 101022-R LSMREV 002050-R PRI 300 SC .DIS 020104-R 
012062-R EVL 000004 GP$18 026414-R INIT.T 76-R L&NAME -R PRIO7? 000340 SC.OST 020514-R 
012110-R EX.ACC 015532-R GP#19 026422-R INI.CT 045570-R LSNDHR 026324-R 060702-R e 020570-R 
012136-R EX.BBU 015670-R GP%2 26164-R INI.RR 047614-R LSNDHW 026010-R PTCH1 002136-R 017530-R 
66-R €EX.6B1 015616-R GP$20 026430-R INT.GE - $NOSF 026624-R PTCH2 002210-R SC.ECC 2-R 
-R EX.BB2 015550-R GP$21 026436-R IN.IOD 034704-R LSNDSW 026100-R PTCH3 -R SC.ECD 020724-R 
0122354-R EX.BC 016416-R GP%22 026452-R 100634-R LS&PRIO 2-R PT 002334-R SC.EC1 021174-R 
-R EX.B8D0 016472-R GP$23 2-R I 100644-R LSPROT 026102-R PTCHS 2406-R 2 021224-R 
rt Hh EX.BOR 016550-R GP$24 026470-R 01 -R LSPRT 002112-R PUTA.B 034606-R SC.EC3 -R 
-R EX.BDOW 016640-R GP$25 026502-R I0.RET 061062-R LSREPP 002062-R PUT.IO 034542-R EC4 021306-R 
012420-R EX.CBC 016226-R GP$ 026516-R IPKT.A 076260-R LSREV 002010-R PUT.PK -R SC.ECS 021336-R 
012532-R EX.CBR 016272-R GP$27 026526-R IRDRX. 074124-R LE&RPT 027462-R PUT.RE 034452-R SC.EC6 021366-R 
012572-R EX.CBW -R GP$28 026542-R 1 LS$SFTL 026326-R P.INDE 101006-R SC.EC7 021416-R 
34-R EX.CMD O1 -R GPS29 O -R IXE 004000 L$SOFT 026330-R QIO 00670-R SC.EC8 021450-R 
012700-R EX.CMP 015504-R GP&3 026174-R LOE 040000 L¢SPC O002056-R QIO.FU 057116-R SC.EC9 021502-R 
1664-R EX.LB8 017064-R GP$30 026572-R LOT 000010 L$SPCP 002020-R QI 0 4- EDC 022202-R 
; 011704-R EX.LBN 015750-R GP$31 026610-R LSACP 002110-R LSSPTP 002024-R QIO.LB 057436-R SC.FCT 021126-R 
EH. O13535S6-R EX.LBR 016050-R GP$32 026616-R LSAPT 002036-R LSSTA 002030-R QIO.0K 054244-R SC.FER 020176-R 
EH.1 013414-R EX.LBW 016116-R GP$4 026206-R LS$AU 033240-R L&SW 026014-R QIO.0U 054452-R SC.FE2 020264-R 





= . Ee EE ee ee ee 
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ZRGAHO.EXE; 5 
RQAHO 


eee, 





eee Task builder statistics: 


Totel work fiie references: 146628. 
Work file reads: 0. 
Work file writes: O. 
Size of core pool: 23454. words (91. pages) 
Size of work file: 5120. words (20. pages) 


Elepsed time:00:00:46 


Memory ellocetion map TKB M40.10 
10-OCT-85 09:56 


SC.PSP 022734-R SC.VOL 017752-R 
SC.RCT O020756-R SC.576 021052 
SC .RDY R NOD 


021544-R 
017672-R SWM1 004706- -R 


LT a 


TEMP1 100720-R 
TEMP2 100722-R 
TIME 


TYPEW 100752-R 
TS$FREE 103140-R 
000004 
T.ADOR 074476-R 
T1 044562 -R 


-I0 062662-R 
VEC .BR 046126-R 
WAIT  035614-R 


SEQ 0501 


SEQ 0502 


PAGE 1 


ON 10-OCT-85 AT 09:56 


CREATED BY TKB 


GLOBAL CROSS REFERENCE 


| SYMBOL VALUE 


| ZRQAHO 


voe 


REFERENCES... 
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ZRGAM2 ZRQAMS 
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aonn os ae Cn 
Sgnges “ 
S3888s 8 SSaoansanssssses 
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SEQ 0503 


PAGE 2 


ON 10-OCT-85 AT 09:56 


CREATED BY TKS 


| ZRQAHO 


vo2 


GLOBAL CROSS REFERENCE 


SYMBOL VALUE 











ESReereettretertteereererteereer ety 


ee 
sates taeaenacs: 


SSSSSANatak 
A at 


~¥.%.~%.%.%.%.%.%.%.%.*.%.*.%.%.* 


acesee-= 


see O7a074 -R 
CTLAR.I . 
DASH 


= - ~ = = - os ~ - i a - 7 _ > ~ - = ~ 7 - 





SEQ 0504 


ZRQAHO CREATED BY TKB ON 10-OCT-85 AT 09:56 PAGE 3 
GLOBAL CROSS REFERENCE CREF vo2 
VALUE REFERENCES... 
052462-R © ZRQAM3 
: 064754-R  ZRQAM3 
026072-R @ ZRQAM1 
| 100652-R @ ZRGAMi  ZRQAM2  #$ZRQAM3 
| 1 -R @ ZRQAMI ZRQAM3 
| 007504-R @ ZRQAM1 RQAM2 
| 010224-R @ ZRQAM1 
002122-R @ ZRQAM1 
101014-R @ ZRGAMI ZRQAM3 
012766-R @ ZRQAM1 
013026-R @ ZRQAMI 
013074-R @ ZRQAM1 
013126-R @ ZRQAM1 
013166-R  ZRGAM1 
013222-R @ ZRQAM1 
013302-R @ ZRQAM1 
012724-R @ ZRQAMI 
0000 ® ZRQAM1 @ @ ZRQAM3 
000035 4 ZRQAM1 @ 2 ® ZRQAM3 
000034 4 ZRQAMI @ & ZRQAM3 
000037 9 ZRQAMi @Z ® ZRQAM 
00004 @ ZRQAM1 @ @ ZRQAM3 
011776-R @ ZRQAM1 
012036-R 4 ZRQAM1 
012062-R @ ZRQAMi 
012110-R @ ZROAMI 
012136-R 4 ZRQAMI 
012166-R @ ZRQAMI 
012204-R @ ZRGAM1 
012234-R @ ZRQAM1 
012252-R 4 ZRGAMi 
012272-R  ZRQAM1 
012332-R @ ZRQAM1 
012420-R @ ZRQAMI 
12532-R @ ZRQAMi 
i: 012572-R @ ZRQAM1 
EGO. 12634-R @ ZRQAM1 
EGH.30 012700-R @ ZRQAM1 
EGS.01 011664-R @ ZRQAM1 
EGS. 11704-R @ ZRQAMI 
EH.0 013356-R @ ZRQAM1 ZRQAM3 
EH.1 13414-R © ZRQAMI QAM3 
EH.10 013770-R @ ZRQAM1 ZRQAM3 
EH. 12 4020-R @ ZRQAM1 QAM3 
EH.13 014054-R @ ZRQAML QAM3 
EH.2 3452-R @ ZRQAML ZRQAM3 
EH.3  013512-R @ ZRQAM1 ZRQAM3 
EH.4 3550-R @ ZRQAM1 ZRQAM3 
EH.5S  013574-R © ZRQAM1 ZRQAM3 
EH.6 3624-R @ ZRQAM1 QAaM3 
EH.7  013654-R © ZRQAM1 ZRQAM3 
EH.8  013704-R @ ZRQAM1 ZRQAM3 
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SEQ 0505 


PAGE 4 
CREF 


ON 10-OCT-85 AT 09:56 


CREATED BY TKB 


GLOBAL CROSS REFERENCE 


ZRQAHO 


vo2 


REFERENCES 


SYMBOL VALUE 
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SEQ 0506 


PAGE 5S 
CREF 


ON 10-OCT-85 AT 09:56 


CREATED BY TKB 
GLOBAL CROSS REFERENCE 


ZRQAHO 


vo2 


REFERENCES... 


SYMBOL VALUE 


Set Het et Ht) tt et et od 
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ZR@AHO CREATED BY TKB ON 10-OCT-85 AT 09:56 PAGE 6 
CROSS REFERENCE CREF v0o2 
VALUE REFERENCES... 
70-R 
061456-R 
046744-R 


074124-R 


SSShSSuUROS 
ae 
oo 


033240-R 
002070-R 


eueeaeeveverereect 


e88 
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SEQ 0508 


PAGE 7 


CREF 


ON 10-OCT-85 AT 09:56 


CREATED BY TKB 


GLOBAL CROSS REFERENCE 


ZRQAHO 


vo2 


REFERENCES... 


SYMBOL VALUE 


ZRQAM3 


{26 
sssssesessee 
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CREATED BY TKB 


0344 
101006-R 
100670- 





CROSS REFERENCE 


ON 10-OCT-85 AT 09:56 


REFERENCES... 


6 ee 
. fo 


sees seetecceres : 
222 PRP RP PARR ee 


SSSseseesessesesesesesoseses 
z 


sees 
= : 


Seeoeo0 
NANNNN 
seetece 
sa533 pores 


@ ZRQAM1 
@ ZRQAM1 
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S2ooescess 
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Seoo2eo039 
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ZRQAMS 
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SEQ@ 0510 


ooo 





ZRQAHO CREATED BY TKB ON 10-OCT-85 AT 09:56 PAGE 9 
GLOBAL CROSS REFERENCE CREF vo2 
SYMBOL VALUE REFERENCES... 
QIO.FU 057116-R © ZRGAMS 
QIO.GE 054524-R @ ZRQAMS 
QIO.L6 057436-R & ZRGAMS 
Q@IO0.0K 054244-R ¢ ZRQAMS 
I0.0U 054452-R & ZRGAMS 
QIo.SI 40-R @ ZRQAMS 
QIO.UN 055512-R @ ZRQAMS 
R 074506-R @ ZRQGAM1 ZRQAN2] ZRQAMS 
RANDY 055234-R @ ZRQAMS 
ROM.CN 074504-R @ ZRGAM1 ZRQAM2 ZRQAM3 
RORX.A 074122-R @ ZRQAM1 ZRQAM2 ZRQAM3 
RORX.E 025372-R @ ZRQAM1 ZRQAM2]) 
RD.COU 101010-R @ ZRGAM1 ZRQAM2] ZRQAM3 
REG.EX 045714-R @ ZRQAMS 
RETPKT 076276-R @ ZRGAM1 ZRQAM2] ZRQAM3 
: 06 on @ ZRQAMS 
RPS.RE 064566-R 4% ZRQAMS 
RPT 010372-R @ ZRGAM1 
RPT10O 011102-R @ ZROAM1 ZRQAM2 
RPT11 O11170-R @ ZRQAM1 ZRQAM2] 
T 011236-R @ ZRQAMi ZRQAM2 
RPT1 011504-R @ ZRGAM1 ZRQAN2] 
RPT14 011404-R @ ZRGAM1 ZRQAM2 
RPTiS 011502-R @ ZROQAM1 ZRQAM2]) 
RPT1i6 011602-R #@ ZRQGAM1 ZRQAN2 
T2 010456-R @ ZRQAM1 ZRQAM2]) 
RPTS 010522-R 9 ZRQGAM1 ZRQAM2 
RPT4 010606-R @ ZRQAM1 ZRQAM2] 
RPTS 010652-R # ZRQAM1 ZRQAM2 
RPT6 010740-R @ ZRGAM1 ZRQAM2 
RPT7 O11 -R @ ZRGAM1 ZRQAM2 
RPTS 011022-R # ZRGAM1 ZRQAM2]) 
RPT9 011050-R @ ZRQAM1 ZRQAM2] 
RP.ADD 0O77050-R @ ZRQAM1 ZRQAM2] QAM3 
RP.IND 077046-R @ ZRGAM1 ZRQAM2 ZRQAMS 
RP.USE 077036-R @ ZRGAM1 ZRQAN2 QAMS 
SA.REG 100706-R @ ZRQAM1 ZRQAM2]) ZRQAM3S 
$8.COD 100700-R @ ZRQAM1 ZRQAMN2 ZRQAM3 
SC.CLK 022610-R @ ZRQAM1 ZRQAM2 
SC.CON 017506-R @ ZRQAM1 ZRQAN2] 
sc.cTo -R @ ZRQAM1 ZRQAM2] 
-OIS 020104-R @ ZRQAM1 ZRQAM2 
SC.O0ST 020514-R @ ZRQAM1 
SC.0S2 020570-R @ ZRQAM1 ZRQAM2 
SC.O0UP 017530-R ¢ ZRQAML ZRQAM2 
Sc .ECC -R @ ZRQAM1 ZRQAM2] 
SC.ECD 020724-R @ ZRQGAM1 ZRQAM2] 
SC.EC1 021174-R @ ZRQGAM1 ZRQAM2 
SC.EC2 021224-R @ ZRGAM1 ZRQAM2 
SC.EC3 021254-R @ ZRQAM1 ZRQAM2 
SC.EC4 0213506-R @ ZRQAM1 ZRQAM2 
SC.ECS 021336-R & ZRQAM1 ZRQAM2 
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SEQ 0511 


PAGE 10 
CREF 


ON 10-OCT-85 AT 09:56 


CREATED BY TKB 


GLOBAL CROSS REFERENCE 


ZRQAHO 


voe 


REFERENCES... 


SYMBOL VALUE 





IOS O22242-R @ ZROQAM1 


--—~ 








017622-R @ ZRQAM1 


A A LG LG A 


RAAnone seeescevenees 


PERE oe ETS a ‘3 


ro 022312 





ee ee 





ZRQAHO CREATED BY TKB ON 10-OCT-85 AT 09:56 PAGE 11 SEQ 0512 


GLOBAL CROSS REFERENCE CREF v02 
VALUE REFERENCES... 


004706-R # ZRGAM1 ZRQAM2 
026022-R @ ae ety ZRQAMS 


026014-R @ 
R : : ZRQAM2 ZRQAMS 
026026-R @ ZRGAM1 ZRQAMS 
® ZRQAM1 
026032-R @ ZRQAM1 ZRQAMS 


026016-R @ ZRQAM1 
3260-R @ ZRQAM1 


o 

' 
ee 
2 


3532-R @ ZRQAM1 
003576-R @ ZRQAM1 
3630-R © ZRGAM1 
003726-R @ ZRQAM1 
-R @ ZROAMI QAM2 
-R @ ZRQAM1 QAM2 
126-R @ ZRQAM1 
004224-R @ ZRQAM1 QAM2 
3302-R @ ZROGAM1 
004314-R @ ZRQAM1 ZRQAM2 
004402-R @ ZRGAM1 ZRQAM2 
004466-R @ ZRQAM1 ZRQAM2 
004526-R @ ZRQGAM1 ZRQAM2 
004600-R @ ZRQAM1 
004644-R @ ZRQAM1 ZRGAM2 
005004-R & ZRQAM1 ZRQAM2 
005030-R @ ZRGAM1 ZRQAM] 
003362-R @ ZRGAM1 ZRQAM2 
003404-R @ ZRQAM1 ZRQAM2 
3456-R @ ZRQAM1 ZRQAM2 
074146-R @ ZRGAM1 ZRQAM2 ZRQAN3 
100720-R @ ZRQAM1 ZRQAM2 ZRQAMS 
100722-R @ ZRGAM1 ZRQAM2 ZRQAMS 
033342-R @ ZROGAN2 ZRQAM3 
074500-R @ ZRGAM1 ZRQAM2 ZRQAMS 
026076-R @ ZRQAM ZRQAMS 


ZRQAM1 
100742-R @ ZRQAM1 ZRQAM2 ZRQAMS 
00752-R @ ZRQAM1 ZRQAM2 ZRQAMS 





074476-R @ ZROQAM1 ZRQAMS 
562 - ZRQAM1 @ ZRQAM3 
@ ZRQAM1 @ ZRQAM2 ¢@ ZRQAM3 
-R @ ZRQAMS 
126-R @ ZRQAMS 
035614-R @ ZRQAMS 
171350-R @ ZRQAM1 ZRQAM2 
017152-R @ ZRQAM1 ZRQAM2 
7206-R @ 1 ZRQAM2 
017234-R @ ZRQAM2 
O17272-R @ ZRQAM1 ZRQAM2 
SEND... 103142-R @& ZRQAM4 





SEQ 0513 
ZRQAHO CREATED BY TKB ON 10-OCT-85 AT 09:56 PAGE 12 nine. 


GLOBAL CROSS REFERENCE CREF vO02 
 S/MBOL VALUE REFERENCES... 


$SAVE2 073640-R Bi6MUL @ B1I6SAV ZRQAM2] ZRQAMS 
_ $SAVE orate. o ® BI6SAV ZRQAM2 ZRQAMS 


o tel 
12-R 16m @ BI6SAV ZRQAM2 ZRQAMS 





os we 


